Zapis tekstu do pliku tekstowego

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile("C:\TEMP\test.txt")
oFile.WriteLine block
oFile.Close
Set fso = Nothing
Set oFile = Nothing


Zapis arkusza do pliku

Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Copy Before:=wb.Sheets(1)
wb.SaveAs "C:\TEMP\" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_" & Format(Now(), "dd_mm_yy_hh_mm")
ActiveWorkbook.Close SaveChanges:=True 'Zamknięcie zapisanego pliku


Otwarcie pliku

Workbooks.Open ("C:\TEMP\Archiwum.xlsx")


Ścieżka do pliku znajdującego się w tej samej lokalizacji co plik z makrem

strFile = ActiveWorkbook.Path & "\Pracownicy.csv"


Skopiowanie danych z pliku CSV do określonego arkusza

Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Users")
strFile = ActiveWorkbook.Path & "\Pracownicy.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.TextFilePlatform = 65001
.Refresh
End With