Подскажите пожалуйста, как открыть программно csv-файл?
Код такой:
Файл прилагаю.
Код такой:
Код |
---|
Dim objExcel, objWorkbook Dim File1 As String File1 = "C:\cakes.csv" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True 'не работает 'Set objWorkbook1 = objExcel.Workbooks.OpenText (filename= "" & File1 & "" , dataType=xlDelimited, Comma=True) 'Set objWorkbook1 = objExcel.Workbooks.OpenText (File1, , , , , , , , True) |