Mit diesen Makro’s lese ich .CSV Dateien ein und Speichere sie als .xlsx
Das läuft aber nur das Erste mal. Danach bleibt es im Pfad von „Speichern Unter“ hängen
Kann mir jemand sagen warum?
Die Zelle (A1) hat den Wert 4
Gruss
Walter
Private Sub Workbook_Open()
For i = 1 To Range(„A1“).Value
Dim pfad As String
Dim selCount As Long
pfad = „T:\NM_Public\E&T\NE_NW_Implement\DOCSIS Capacity Reports 2015\Neue weekly report vom OBIEE\Original CSV Dateien“
’ Open the file dialog
ChDir („T:\NM_Public\E&T\NE_NW_Implement\DOCSIS Capacity Reports 2015\Neue weekly report vom OBIEE\Original CSV Dateien“)
Application.DefaultFilePath = "T:\NM_Public\E&T\NE_NW_Implement\DOCSIS Capacity Reports 2015\Neue weekly report vom OBIEE\Original CSV Dateien"
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True ' Kann man auf True/false setzen
.InitialView = msoFileDialogViewList
.Filters.Clear
.Filters.Add "csv files", "*.csv"
.Show
V = .SelectedItems(1)
End With
Application.Workbooks.OpenText Filename:=V, DataType:=xlDelimited, _
Comma:=True, Local:=False
'Speichern unter
Call SpeichernUnter
ActiveWorkbook.Close
Next
Application.Quit
End Sub
Sub SpeichernUnter()
Dim dialog As FileDialog
Dim pfad As String
Dim Dateiname1 As String
pfad = „T:\NM_Public\E&T\NE_NW_Implement\DOCSIS Capacity Reports 2015\Neue weekly report vom OBIEE\weekly reports“
Dateiname1 = ActiveWorkbook.Worksheets(1).Name
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
dialog.InitialFileName = pfad & Dateiname1
dialog.AllowMultiSelect = False
If (dialog.Show) Then
ActiveWorkbook.SaveAs dialog.SelectedItems(1), 51
End If
End Sub