如何扩展VBA脚本从csv文件导入的区域？

我不得不编辑自己写的VBA脚本。 这就是为什么我不知道该怎么做（我尝试了很多）。

代码：

Sub Datei_Auslesen_Modul1() On Error GoTo errorhandler Dim fso As Object, Dat As Object, i As Long, Blatt As Byte Dim txt As String, x As Integer, y As Byte, alt As Integer Dim Pfad_Maxforce As String Application.ScreenUpdating = False Set fso = CreateObject("Scripting.FileSystemObject") Pfad_Maxforce = InputBox("Bitte Pfad zum maxforce_Archiv (SICHERUNGEN) angeben.", "Maxforce_MT_FINAL_SIcherungen", "E:\05_Messungen\02_Skripte\07_Versuchsauswertung\01_Maximalkraftauslesen\maxforce_MT_FINAL_Sicherungen\") Set Dat = fso.OpenTextFile(Pfad_Maxforce & Sheets("Daten_gesammelt").Range("k9"), 1, False) 'Dateiname aus Zelle g8 in Blatt i = 0 Do While Dat.AtEndOfStream <> True ' Tabellenblatt ermitteln Blatt = (i \ 65536) + 1 txt = Dat.ReadLine alt = 0 y = 0 For x = 1 To Len(txt) If Mid(txt, x, 1) = ";" Then Worksheets("max_force_auslesen_Modul1").Cells((i Mod 65536) + 1, y + 1) = Mid(txt, alt + 1, x - alt - 1) alt = x y = y + 1 End If Next x Worksheets(Blatt).Cells((i Mod 65536) + 1, y + 1) = Mid(txt, alt + 1, x - alt - 1) i = i + 1 Loop Dat.Close Application.ScreenUpdating = True Exit Sub 

问题是，脚本不会导入csv文件的最后一列。 我在哪里必须改变参数？ 干杯。

Answer 1

你可以简单地改变这个如果条件是这样的：

  If Mid(txt, x, 1) = ";" Or x = Len(txt) Then