nazwa pliku pobrana z danej komórki

Question

witam, 
Jak to przerobić abym miał datę plus nazwę zmienną z komórki 


i nazwa pliku: Raport_2018-04-24_1/18.pdf 

dziękuję za pomoc ... kombinuje ale nie wychodzi 

pdfFileName = "Raport_" & Date & "i w tym miejscu chciałbym numer raportu pobrany z komórki" 

 

Answer 1

Nie możesz korzystać z ukośników w nazwach plików, więc nazewnictwo, jakie zaproponowałeś odpada. Zastąp ukośnik znakiem - lub _.

Wartość komórki możesz pobrać korzystając z funkcji Cells() - msdn.

Pierwszy parametr to numer wiersza, drugi, to numer kolumny. Przykład - pobieranie wartości z komórki A1: Cells(1, 1).Value. Funkcja zwraca wartość wklepaną do komórki, więc kod może wyglądać tak:

pdfFileName = "Raport_" & Date & "_" & Cells(1, 1).Value

 

Comments

działa ... ;) Bardzo Ci dziękuję.

---

@tls01, a wiesz może jak to jeszcze przerobić żeby w odrazu mail mi sie tworzył  ? on sie teraz robi ale jak dodałem zakres komórki to nie załącza pliku i w temacie jest jak było 

'Create Outlook email
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmailObj = xOutlookObj.CreateItem(0)
    With xEmailObj
        .Display
        .To = "..."
        .CC = "...."
        .Subject = "Raport_" & Date & "_" & Cells(7, 2).Value
        .Attachments.Add "R:\Raporty_\Raport_" & Date & " _" & Cells(7, 2).Value .pdf"
        If DisplayEmail = False Then
            '.Send
        End If