vba - 从excel 2000 vba读取关闭的csv文件

Question

我正在使用excel-vba访问由另一个程序创建的关闭的 .csv 文件。

1. 下面的代码仅遍历每个单元格，并将关闭的 Excel 文件中的值复制到打开的工作簿中的同一单元格。
2. 第一个 .formula 行使用 .xls 文件，注释掉的 .formula 行引用 .csv 文件没有 - 我在每个单元格中都得到 "#REF!" 。

我认为我收到的错误是由于我没有声明它不是“标准”.xls 文件？

• 最终代码将从附加到每个文件的 .csv 文件中读取如此频繁，因此它必须保持关闭。
• 创建 .csv 文件的软件无法输出到 .xls 文件。将对它进行编码，以便我的宏将从中断处继续，而不是每次都执行整个工作表。

任何帮助将不胜感激。

Sub GetData()

Dim RowNumber As Integer
Dim ColNumber As Integer

For RowNumber = 1 To 100
For ColNumber = 1 To 104    
    With Cells(RowNumber, ColNumber)
        .Formula = "='C:\Documents and Settings\admin\Desktop\[data.xls]Sheet1'!" & Cells(RowNumber, ColNumber).Address
        '.Formula = "='C:\Documents and Settings\admin\Desktop\[data1.csv]Sheet1'!" & Cells(RowNumber, ColNumber).Address
        .Value = .Value
    End With    
Next
Next

End Sub

Answer 1

您可以直接打开文件并一次性复制范围

更改下面的文件路径以适应。

此行以只读方式打开文件，以便可以将其附加到其他位置
设置 Wb2 = Workbooks.Open("C:\temp\data.csv", False, True)

Sub WhyNotOpen()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Wb1 = ThisWorkbook
Set Wb2 = Workbooks.Open("C:\temp\data.csv", False, True)
Wb1.Sheets(1).Range("A1:CV104").Value = Wb2.Sheets(1).Range("A1:CV104").Value
Wb2.Close False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub