小编Geo*_*rge的帖子

我有一个宏启用excel工作簿,其中包含几个命名的工作表.其中一个工作表名为"panel",第二个工作表名为"data".名为"panel"的工作表有一个分配宏的按钮.我想选择名为"panel"的工作表上的按钮,并显示一个浏览文件窗口.一旦用户在其硬盘上选择了csv文件,我希望将csv文件的内容导入到名为"data"的工作表中,从单元格A1开始.

问题1:我分配给按钮的vba导致csv文件的内容与按钮("面板"工作表)放在同一工作表上.我想将csv文件的内容放在"数据"表上.

问题2:此外,还有一串引用我的硬盘驱动器的代码和一个名为"capture.csv"的文件.因此,当宏启用excel文件在另一台计算机上时,该文件崩溃.有没有办法删除路径字符串,以便任何计算机都可以使用该文件？

任何帮助解决这个问题将不胜感激.分配给该按钮的宏如下:

Sub load_csv()
Dim fStr As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Cancel Selected"
End
End If
'fStr is the file path and name of the file you selected.
fStr = .SelectedItems(1)
End With
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\laptop\Desktop\CAPTURE.csv", Destination:=Range("$A$1"))
.Name = "CAPTURE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0 …