vba 相关

标签：active   val   xls   cti   返回   data   工作   special   ted   

返回当前默认文件路径： 
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

vba 相关

标签：active   val   xls   cti   返回   data   工作   special   ted   

原文地址：http://www.cnblogs.com/wszym111/p/5985386.html