Makro CSV-Datei öffnen, Teile einfügen und ablegen
12.05.2015 16:43:32
fcs
Hallo ElHi,
nachfolgend ein Makro-Beispiel, das du noch bezüglich Dateinamen, Blattnamen, Zellbereiceh anpassen musst.
Gruß
Franz
Option Explicit
'Code in einem allgemeinen Modul
Sub CSV_Datei_ausfuellen()
Dim wkbCSV As Workbook, wksCSV As Worksheet
Dim varCSV As Variant, strPathNeu As String
Dim wkbAktiv As Workbook, wksQuelle As Worksheet
Set wkbAktiv = ActiveWorkbook '=Datei mit dem Makro
Set wksQuelle = wkbAktiv.Worksheets("Tab_XYZ") 'Name anpasen! - Tabellenblatt mit den zu _
kopierenden Daten
varCSV = "D:\Test\Muster_CSV.csv" 'Dateiname anpassen
If Dir(varCSV) = "" Then
MsgBox "Date """ & varCSV & """ nicht gefunden!", vbOKOnly, "Prüfung CSV-Vorlage"
Else
Application.ScreenUpdating = False
Set wkbCSV = Application.Workbooks.Open(Filename:=varCSV, ReadOnly:=True, Local:=True)
Set wksCSV = wkbCSV.Worksheets(1)
wksQuelle.Range("B3:H8").Copy 'Bereich anpasen
With wksCSV.Range("C3") 'Zielzelle anpassen
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
End With
Application.ScreenUpdating = True
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte neuen Ordner für CSV-Datei auswählen/anlegen"
.InitialFileName = ActiveWorkbook.Path
If .Show = -1 Then
strPathNeu = .SelectedItems(1) & "\" & wkbCSV.Name
wkbCSV.SaveAs Filename:=strPathNeu, FileFormat:=xlCSV, Local:=True, _
addtomru:=False 'oder FileFormat:=xlCSVWindows
Application.DisplayAlerts = False
wkbCSV.Close savechanges:=False
Application.DisplayAlerts = False
End If
End With
End If
End Sub