如何让Excel运行时自动加载csv文件

Question

如题所述

Answer 1

可以利用VBA，在工作表打开时触发事件，打开csv文件，代码举例如下：
Private Sub Workbook_Open()
Dim i&, ar As Variant, wk As Workbook
Dim k As Long, arr()
Set wk = Workbooks.Open("c:\book1.csv")
ar = wk.Sheets("Sheet1").Range("a2:d100") '记住工作表中得到的数组下标为1
wk.Close False
For i = 1 To UBound(ar)
If ar(i, 1) = "张三" Then
k = k + 1
ReDim Preserve arr(1 To 4, 1 To k) '注意这个数组需要转置
arr(1, k) = ar(i, 1)
arr(2, k) = ar(i, 2)
arr(3, k) = ar(i, 3)
arr(4, k) = ar(i, 4)
End If
Next
Range("a5").Resize(k, 4) = Application.Transpose(arr)
End Sub

Answer 2

1,将.csv改名为.txt
2,打开excel
3,在excel的菜单》文件》打开，选中刚才改名的txt文件
4,按提示做，原始数据为分隔符号，分隔符号为 逗号，在 带0的列时，选择为文本。

Answer 3

在excel选项-高级-拉到最底下，有个“启动时打开此目录中的所有文件”你可以把你的csv文件放到单独一个文件夹里，然后把这个文件夹路径贴到我说的地方，然后每次打开excel就会自动打开csv文件