返回當前默認文件路徑：?
Application.DefaultFilePath?

返回應用程序完整路徑?
Application.Path?

返回當前工作薄的路徑?
ThisWorkbook.Path?

Application.ActiveWorkbook.Path???只返回路徑?
Application.ActiveWorkbook.FullName ??返回路徑及工作簿文件名?
Application.ActiveWorkbook.Name ??返回工作簿文件名?

?

將當前路徑設置為選擇文件對話框的默認路徑：

Set target = Worksheets(SHEET_CONFIG).Range(RNG_CFG_TEMPLATE)
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "。。。"
.InitialFileName = Application.ActiveWorkbook.Path //將當前路徑設置為默認路徑
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "文件模板", "*.xls"

If .Show = True Then
target.Value = .SelectedItems(1)
End If
End With

?

sum函數的使用--

With outBook.Worksheets(SHEET_DATA_TRHKSK)
.Cells(6, 8).Value = WorksheetFunction.Sum(.Range(.Cells(3, 8), .Cells(5, 8)))
End With

?

行的copy，paste

With outBook.Worksheets(SHEET_DATA_TRHKSK)
.Rows(1).Copy
.Rows(2).PasteSpecial Paste:=xlAll

End With

?

轉載于:https://www.cnblogs.com/wszym111/p/5985386.html

總結

以上是生活随笔為你收集整理的vba 相关的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。