将CSV数据导入工作簿时Excel崩溃

我有几个工作簿,我已经开发了设备的大小调整。我通过 VBA 导出设计的细节到 CSV 文件,使其更容易加载回下面是代码。该脚本工作的大部分时间,但如果我尝试加载 CSV 文件后不久保存一个,Excel 有时崩溃,然后重新启动等我有 4 个不同的大小不同的设备的工作簿,每一个基于相同的 VBA 代码,他们都有。

我有几个工作簿,我已经开发了设备的大小调整。我通过 VBA 导出设计的细节到 CSV 文件,使其更容易加载回下面是代码。该脚本工作的大部分时间,但如果我尝试加载 CSV 文件后不久保存一个,Excel 有时崩溃,然后重新启动等我有 4 个不同的大小不同的设备的工作簿,每一个基于相同的 VBA 代码,他们都有。

需要注意的一点是,当我保存 CSV 文件时,我会在文件名的末尾添加文本,以识别大小的设备类型,并防止其被识别为 excel 文件。这是通过导出脚本完成的。例如“Filename.csv”被保存为“Filename.csv.WHRU”

"" "" "" "" "" "" "" "" "" "" "

工作表 (12)。激活

使用 Application.FileDialog (msoFileDialogFilePicker).Show 将 fStr 作为字符串

    If .SelectedItems.Count = 0 Then
        MsgBox "Cancel Selected"
        Exit Sub
    End If
    'fStr is the file path and name of the file
    fStr = .SelectedItems(1)
End With
With ThisWorkbook.Sheets(12).QueryTables.Add(Connection:= _
"TEXT;" & fStr, Destination:=ThisWorkbook.Sheets(12).Cells(3, 7))
  .Name = "CAPTURE"
    .FieldNames = True
    .RefreshStyle = xlOverwriteCells
    .TextFileCommaDelimiter = True
    .Refresh BackgroundQuery:=False
 End With
For Each Cn In ThisWorkbook.Connections
    Cn.Delete
Next Cn
For Each Cn In Sheets(12).QueryTables
    Cn.Delete
Next Cn

"" "" "" "" "" "" "" "" "" "" "

0

要从 CSV 文件中复制信息并将其直接从 VBA 放入 Excel 工作表中,您可以利用this project。该项目还允许您实际编写 CSV 文件。

试试这个:

Sub ImportCSVRecords(filePathAndName As String, OutputSheet As String, OutputRange As String)
    Dim CSVix As CSVintece
    
    Set CSVix = New CSVintece 'Create new instance
    Call CSVix.OpenConnection(filePathAndName) 'Open a physical connection to the CSV file
    Call CSVix.ImportFromCSV 'Import data
    Call CSVix.DumpToSheet(WBookName:=ThisWorkbook.Name, SheetName:=OutputSheet, rngName:=OutputRange) 'Dumps the data to the current Workbook's OutputSheet starting at named OutputRange.
    Set CSVix = Nothing 'Terminate the current instance
End Sub

本站系公益性非盈利分享网址,本文来自用户投稿,不代表码文网立场,如若转载,请注明出处

(149)
是否可以保存在iPadSwift游乐场应用程序中的文件应用程序中显示的文件
上一篇
具有NetworkSolutionsDNS的 Azure自定义域名
下一篇

相关推荐

发表评论

登录 后才能评论

评论列表(40条)