Datei importieren und in andere Blatt übertragen
09.07.2018 11:00:16
Markus
ich habe ein Problem mit dem Übertragen bei einem Datei Import.
Folgenden Code hat ein ehemaliger Kollege erstellt.
Der Code sorgt dafür das eine Datei importiert wird und die Daten ins Aktive Sheet übertragen werden.
Private Sub CommandButton1_Click()
Application.CutCopyMode = False
Dim Importdatei As String
Dim Verzeichnis As String
Verzeichnis = "P:\_eMeldung\Exportierte Dateien"
On Error Resume Next
ChDrive "P:\"
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Monidateien (*.mon), *.mon")
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, Destination:=Range( _
"CS20"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("cs20:IV200").Select
Selection.Copy
Range("a20:Cr200").Select
ActiveSheet.Paste
Range("cs20:IV200") = " "
Range("A20:F200") = " "
Range("CN20:CR200") = " "
Cells.Select
Selection.Columns.AutoFit
End Sub
Jetzt möchte ich genau das gleiche, nur dass die Daten in ein anderes Tabellenblatt übertragen werden.
Anbei mein Code:
Private Sub CommandButton3_Click()
Application.CutCopyMode = False
Dim Importdatei As String
Dim Verzeichnis As String
Verzeichnis = "P:\_eMeldung\Exportierte Dateien"
On Error Resume Next
ChDrive "P:\"
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Monidateien (*.mon), *.mon")
Application.ScreenUpdating = False
With Sheets("eMeldung").QueryTables.Add(Connection:="TEXT;" & Importdatei, Destination: _
=Sheets("eMeldung").Range("CS20"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("eMeldung").Range("CS20:IV200").Select
Sheets("eMeldung").Selection.Copy
Sheets("eMeldung").Range("A20:CR200").Select
Sheets("eMeldung").Paste
Sheets("eMeldung").Range("CS20:IV200") = " "
Sheets("eMeldung").Range("A20:F200") = " "
Sheets("eMeldung").Range("CN20:CR200") = " "
Sheets("eMeldung").Cells.Select
Sheets("eMeldung").Selection.Columns.AutoFit
End Sub
Könnt Ihr mir sagen, was ich falsch mache?
Gruß Markus