㈠ 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