ActiveWorkbook.Name '返回活动工作薄的名称 ThisWorkbook.Name '返回当前工作簿名称 ThisWorkbook.FullName '返回当前工作簿路径和名称 MsgBox "当前工作簿名称 " & ActiveWorkbook.Name 2)/http://club./thread-413630-1-1.html Sub aa() Dim n As Integer n = VBA.InStrRev(ActiveWorkbook.Name, ".") MsgBox...
一、读取密码文件 在代码的循环（FOR）之前，加入一行代码：n = ActiveWorkbook.Name '取得当前工作簿名字 在循环的开始（FOR下面），加入下面三行代码，先把目标工作簿打开 na=pt & Cells(I, 13)Workbooks.Open Filename:=na, password:=123456 '打开密码为123456,如果该工作簿无密码则不影响打开 a...
Application.ActiveWorkbook.FullName ' 只返回路径 Application.ActiveWorkbook.Path ' 返回工作簿文件名 Application.ActiveWorkbook.Name ' 当前文件另存为一副本,而且不把当前文件切换到副本上 ActiveWorkbook.SaveCopyAs (ActiveWorkbook.Path & "\" & aFileName & ".xls") ' 不保存修改,重新打开当前工作簿 ...
Print#1,“hello”取得元素 Cells(1,c1)弹窗提示 SubClostAndSaveWorkbook()ActiveWorkbook.CloseSavechanges:=TrueEndSub0 然后其实vba大多数都是vb代码，虽然有一点点不一样，但是大多数都是相同的，例如for语句和if语句都是一样的，可以直接就用。我们平时用得比较多可能就是对数据的操作。自己多加练...
ActiveWorkbook.FullName 得到完整的路径,包括文件名 CurDir(drive) 当前工作路径,例如 CurDir () 返回 "C:\Documents and Settings\user\My Documents" CurDir ("G") 返回 "G:\ 4. 对话框 4.1 文件夹对话框 树形目录: Set objSheel = CreateObject("Shell.Application") ...
1、同一工作薄内所有工作表名称，提取到指定工作表的指定位置（如工作表“Sheet1”A列），代码如下： Dim SheetsName As Integer For SheetsName = 1 To Worksheets.Count Sheets("Sheet1").Cells(SheetsName, 1).Value = Worksheets(SheetsName).Name Next 2、同一工作薄内所有工作表名称提取到新建工作...
If objFile.Name<>ActiveWorkbook.Name And objFile.DateLastModified>tm Then '将该文件赋值给变量 tm=objFile.DateLastModified '将该文件名赋值给变量 sName=objFile.Name End If '下一个文件 sFile=Dir Loop '返回值 GetLastWorkbook=sName End Function ...
ActiveWorkbook是对活动工作簿的引用 新建的工作簿总会成为活动工作簿 Subwb() Workbooks.AddMsgBox"代码所在的工作簿为:" & ThisWorkbook.Name &Chr(13) _ &"当前活动工作簿为:" &ActiveWorkbook.Name ActiveWorkbook.Close savechanges:=FalseEnd Sub 四、Worksheet对象 ...
'1、工作簿(Workbooks) ' Workbooks(N)第N个工作簿 ' Workbooks ("工作簿名") ' ActiveWorkbook 活动工作簿 ' ThisWorkBook '代码所在工作簿 '2、工作表(Worksheets) 'Sheets(N) 第N个工作表 'Sheets("工作表名") 'Sh VBA namespace方法 VBA 赋值 表名 转载 mob64ca14173efa 9月前 231阅读 VBA中...
'取得当前book名称 MyBook = Application.ActiveWorkbook.Name '增加一个新的book Workbooks.Add AddBook = Application.ActiveWorkbook.Name 'Workbooks(MyBook).Worksheets(1).Cells(1, 1) = AddBook Application.StatusBar = "正在读取原始文件..." For Each OpenFile In FileToOpen Call Read_Log(OpenFile) ...