㈠ vba 根据路径，打开一个excel文件，代码应该怎么写
fl
=
Application.GetOpenFilename(,
,
"打开目标文件")
此句是打开一个选择文件的对话框，fl得到的是你选择文件的具体路径；
Workbooks.Open
Filename:=fl
这句是打开你选择的文件！
当然如果想打开指定文件，你可以不写第1句，直接把第2句的fl改成具体路径的字符串即可！
㈡ 如何用vba实现选择打开一个excel并复制里面的数据
假设打开的文件是D盘123文件夹中的1.xls文件，并将sheet1中的内容，复制到当前Excel文件的sheet1工作表中，以下是代码及其解释：
Sub main()
Workbooks.Open Filename:="D:\123\1.xls" '通过Open的方法打开Excel文件，Filename即打开的文件名，必须包含完整的路径和完整的工作名
ActiveWorkbook.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Cells '这里包含了复制和粘贴，Copy前面的是要复制的对象，而后面是要粘贴的目的区域，Cells是表示对整个工作表的内容进行复制
End Sub
㈢ Excel中怎样利用vba实现-全选-复制-新建Excel文件-选择性数值粘贴到新文件-保存，保存文件名为某一单元格
既然都可以说得那来么清楚，我自就把说明与注意点，直接备注在代码中了，完整代码如下
Subadmin()
DimxWkAsWorkbook,xShAsWorksheet,xRanAsRange
DimnWkAsWorkbook
'要复制内容为当天工作表
SetxWk=ActiveWorkbook
SetxSh=ActiveSheet
'保存的文件名为A1单元格里的内容，如果是其它单元格，修改这里
SetxRan=xSh.Range("A1")
SetnWk=Workbooks.Add
xSh.Cells.Copy
nWk.Worksheets(1).Range("A1").PasteSpecialxlPasteValues
'保存在与复制内容同一目录下
nWk.SaveAsxWk.Path&""&xRan.Value
EndSub
㈣ 如何使用VBA在一个excel里面创造出一个按钮，点击后可选择.CSV文件导入此excel里并运行之后的代码
1.插入按钮，在开发工具项-插入表单工具-Button
2.导入代码
Sub Inport_Renkei_CSV_Click()
Dim fTextDir As String, rowIndex As Integer, i As Integer
myFile = Application.GetOpenFilename("连携CSVファイル(*.csv),*.csv")
If VarType(myFile) = vbBoolean Then
Exit Sub
End If
rowIndex = 1
Open myFile For Input As #1
Do While Not EOF(1)
Line Input #1, currLine
If rowIndex > 1 Then
rowDataArr = Split(currLine, Chr(9))
For i = 0 To UBound(rowDataArr)
Cells(rowIndex + 1, i + 1).FormulaR1C1 = rowDataArr(i)
Next i
End If
rowIndex = rowIndex + 1
Loop
Close #1
MsgBox "success"
End Sub