Mam również nadzieję na odpowiedź na ten problem! Dzięki za pomoc!

Biuro 360

Ten sam problem

Cześć Kryształowo,

To jest naprawdę świetne i dla mnie działa idealnie. Potrzebujesz dodatkowej pomocy, aby dodać:

1. w "Do" chcę podać link do konkretnej komórki aktywnego arkusza tak jak w CC a w BCC chcę dodać link do aktywnego arkusza
2. w treści e-maila muszę podać jakiś standardowy tekst.

Będę dla ciebie pełen za twoją pomoc.

Podziękowania
Parag

Próbowałem użyć Range dla "Do", "CC", po prostu nie pobiera wartości z wyznaczonej komórki. Czy możesz w tym pomóc?
Dzięki,
Mehul

Cześć Kryształowo,

To jest naprawdę świetne i dla mnie działa idealnie. Potrzebujesz dodatkowej pomocy, aby dodać:

1. w "Do" chcę podać link do konkretnej komórki aktywnego arkusza tak jak w CC a w BCC chcę dodać link do aktywnego arkusza
2. w treści e-maila muszę podać jakiś standardowy tekst.

Będę dla ciebie pełen za twoją pomoc.

Podziękowania
Parag

To jest możliwe. Utwórz oddzielne zmienne, aby przechowywać wartość z komórek, a następnie użyj tych zmiennych podczas ustawiania xFolder.
Użyłem wartości z komórki w moim arkuszu plus dzisiejsza data. Możesz jednak łatwo zrobić wiele wartości komórek.

Oto co dodałem:
Dim xMemberName jako ciąg
Dim xFileDate jako ciąg

xMemberName = Zakres("H3").Wartość
xFileDate = Format (teraz, "mm-dd")

xFolder = xFolder + "\" xMemberName + xFileDate + ".pdf"

Otrzymuję błąd, kiedy próbuję tego, gdzie w kodzie należy to umieścić?

Myślę, że Geoff oznacza możliwość określenia konkretnego folderu w kodzie, w którym plik pdf jest za każdym razem zapisywany, zamiast konieczności ręcznego wybierania lokalizacji. Plik PDF jest następnie wysyłany e-mailem z tego konkretnego folderu.

Dzięki za to, to świetnie, ale chcę, aby arkusz był nazwany zgodnie z komórką A1 na arkuszu 1. miejsce do zapisania zgodnie z A1 na arkuszu 2, na przykład C: \ Users \ peete \ Dropbox \ Screenshots i wyślij e-mail do adres e-mail na arkuszu A3 2, co już wypracowałem.

Cześć, Jedyną zmianą, z którą się zmagam, jest utworzenie osobnego e-maila dla każdego utworzonego dokumentu PDF.

Mam w skoroszycie ponad 100 arkuszy, co oznacza, że ​​będę musiał uruchomić VBA ponad 100 razy, co jest czasochłonne.  
Udało mi się podzielić skoroszyt na wiele arkuszy, a następnie mogę przekonwertować każdy arkusz na pojedynczy dokument PDF.
Rozwiązaniem, którego szukam, jest wysłanie każdego dokumentu PDF osobno, podczas gdy powyższy proces jest uruchomiony.
Niniejszym VBA, którego aktualnie używam:
Sub Zapisz jakopdf i wyślij1()
Dim xSht jako arkusz
Dim xFileDlg jako okno pliku
Dim xFolder jako ciąg
Dim xTaklubNie, I, xNum Jako liczba całkowita
Dim xOutlookObj jako obiekt
Dim xEmailObj jako obiekt
Dim xUsedRng jako zakres
Dim xArrShetts jako wariant
Dim xPDFNameAdres jako ciąg
Dim xStr jako ciąg
xArrShetts = Array("02302257", "02400438", "02401829", "02403995", "02408001", "02409208", _
"02409980", "02411881", "02424178", "02430454", "02444046", "02448950", "02450600", _
"02459861", "02461750", "02467535", "02480484", "02484749", "02502041", "02504807", _
„02511843”, „02515193”, „02523098”, „02523244”, „02524036”, „02524548”, „02525516”, „02525703”, „02525898”, „02528908”, „02528950”, _
"02530381", "02531018", "02531252", "02531277", "02532571", "02533053", "02533474", _
"02534176", "02534592", "02534626", "02535343", "02536386", "02536921", "02537544", _
„02537607”, „02538015”, „02538755”, „02538836”, „02538910”, „02539685”, „02540063”, „02540139”, „02540158”, „02541607”, „02542344”, _
"02543763", "02543985", "02544116", "02544748", "02544762", "02545026", "02545048", _
"02545080", "02545447", "02545730", "02545814", "02546477", "02547458", "02547673", _
„02547833”, „02547912”, „02547950”, „02547991”, „02548848”, „02549103”, „02549116”, „02549125”, „02549132”, „02549140”, „02549182”, _
"02549462", "02549499", "02549565", "02549687", "02550049", "02550437", "02550812", _
"02550982", "02551004", "02551005", "02551045", "02552099", "02552222", "02552561", _
„02552684”, „02552815”, „02552892”, „02553031”, „02553186”, „02553628”, „02553721”, „02555186”, „02556934”, „02557137”, „02557393”, _
"02559121", "02559392", "02559419", "02559512", "02559802", "02559868", "02560052", _
"02560612", "02560684", "02560920", "02561018", "02561061", "02561092", "02561227", _
„02561349”, „02561592”, „02561630”, „02561673”, „02561880”, „02562359”, „02562920”, „02562934”, „02563013”, „02563119”, „02563133”, _
"02563445", "02563737", "02563828", "02563852", "02563861", "02563971", "02564042", _
"02564315", "02564366", "02564832", "02564909", "02565059", "02565205") 'Wprowadź nazwy arkuszy, które wyślesz jako pliki pdf w cudzysłowie i oddziel je przecinkami. Upewnij się, że w nazwie pliku nie ma znaków specjalnych, takich jak \/:"*<>|.

Dla I = 0 do UBound(xArrShetts)
On Error Resume Next
Ustaw xSht = Aplikacja.ActiveWorkbook.Worksheets(xArrShetts(I))
If xSht.Name <> xArrShetts(I) Wtedy
MsgBox "Nie znaleziono arkusza roboczego, zakończ operację:" & vbCrLf & vbCrLf & xArrShetts(I), vbInformation, "Kutools for Excel"
Exit Sub
End If
Dalej


Ustaw xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
Jeśli xFileDlg.Show = True Wtedy
xFolder = xFileDlg.SelectedItems(1)
Więcej
MsgBox "Musisz określić folder, w którym chcesz zapisać plik PDF." & vbCrLf & vbCrLf & "Naciśnij OK, aby wyjść z tego makra.", vbCritical, "Należy określić folder docelowy"
Exit Sub
End If
'Sprawdź, czy plik już istnieje
xYesorNo = MsgBox("Jeśli w folderze docelowym istnieją pliki o tej samej nazwie, do nazwy pliku zostanie automatycznie dodany przyrostek w celu rozróżnienia duplikatów" & vbCrLf & vbCrLf & "Kliknij Tak, aby kontynuować, kliknij Nie, aby anulować", _
vbYesNo + vbQuestion, "Plik istnieje")
Jeśli xYesorNo <> vbYes to zakończ Sub
Dla I = 0 do UBound(xArrShetts)
Ustaw xSht = Aplikacja.ActiveWorkbook.Worksheets(xArrShetts(I))

xStr = xFolder & "\" & xSht.Name & ".pdf"
xLiczba = 1
Chociaż nie (Dir(xStr, vbDirectory) = vbNullString)
xStr = xFolder & "\" & xSht.Name & "_" & xNum & ".pdf"
xLiczba = xLiczba + 1
zastosować
Ustaw xUsedRng = xSht.UsedRange
Jeśli Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Wtedy
xSht.ExportAsFixedFormat Typ:=xlTypePDF, Nazwa pliku:=xStr, Jakość:=xlQualityStandard
Więcej

End If
xArrShetts(I) = xStr
Dalej

'Utwórz e-mail programu Outlook
Ustaw xOutlookObj = CreateObject("Outlook.Application")
Ustaw xEmailObj = xOutlookObj.CreateItem(0)
Z xEmailObj
.Pokaz
.To = "Ctracklegal@ctrack.com"
.CC = „”
.Temat = "?????"
Dla I = 0 do UBound(xArrShetts)
On Error Resume Next
.Załączniki.Dodaj xArrShetts(I)
Dalej
Jeśli DisplayEmail = False, to
.Wysłać
Exit Sub
End If
Kończyć z


End Sub

Witam, właśnie wypróbowałem ten kod w jednym z moich arkuszy roboczych i mam ustawione obszary drukowania, więc dodatkowe rzeczy na dole nie pojawiły się w pliku PDF. Spróbuj!