Ahoj,
mám excel protokol s tlačítkem, do kterýho importuju data z csv. Ale to csv má pokaždé jiný název listu, který budu importovat a ten list v tom csv je pouze jen jeden.
O co mi jde:
1. jak napsat, že má vybrat list ať má jakýkoliv název?
2. v tom csv je výstup dat, který má 3 sloupce do jednoho sloučeného a já ho chci rozdělit na 3 samostatný sloupce a ty importovat do toho protokolu.
Sub Generate()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\"
.Title = "Choose trace export"
.Filters.Add "Soubory Excelu (xls/xlsx/csv)", "*.xl*", 1
.Show
If
.SelectedItems.Count = 0 Then
MsgBox "No files loaded": Exit Sub
ElseIf
.SelectedItems.Count > 1 Then
MsgBox "Choose only one file!": Exit Sub
Else
zdrojovy_soubor = .SelectedItems(1)
End If
End With
Workbooks.Open (zdrojovy_soubor)
docasna = ActiveWorkbook.Worksheets("pokaždé je jiný název listu").Range("A2:")
ActiveWorkbook.Close
ThisWorkbook.Activate
Worksheets("pokus").Range("A3") = docasna
Application.DisplayAlerts = True
End Sub