vba引用当前文件名

贺雍元4834VBA提取当前工作簿所在文件夹的名称?
卜魏娄15170906628 ______ sub t() dim str str=ThisWorkbook.Path MsgBox Right(str, Len(str) - InStrRev(str, ＂\＂)) end sub用路径整理下就是文件夹了啊~

贺雍元4834excel vba引用 -
卜魏娄15170906628 ______ & bkname & &quotdim bkname$, shname$.names(pn_range);=[＂columns(&quot.add pn_range, referstor1c1:=&quot.comment = ＂inames＂信息页＂ pn_range = &quot.xls＂ shname = &quot, pn_range$ bkname = ＂年龄.activate sheets(shname).select ':k＂),select activateworkbook;a!c1:c11&quot.names;]＂ & shname & ＂; activateworkbook; windows(bkname)

贺雍元4834vba代码中,如果引用一张已打开的工作薄,怎么写程序,防止重复打开 -
卜魏娄15170906628 ______ 给你介绍两种方法: 1、遍历所有工作簿,然后用工作簿名进行比较判断,代码如下 For I = 1 To Workbooks.Count If Workbooks(I).Name = ＂要比较的工作簿名称.xlsx＂ Then Exit For Next If I > Workbooks.Count Then Workbooks.Open (＂带路...

贺雍元4834VBA,导入多个文件,不同的文件名不同的处理 -
卜魏娄15170906628 ______ 导入一个文件应该会吧, 那在导入不同文件时,对文件名进行判断,不同的结果做不同的处理.

贺雍元4834如何用VBA实现以下功能: 读取指定文件夹下的某些文件?(比如文件名含有A关键的文件) -
卜魏娄15170906628 ______ 使用fso系统,msdn搜索一下就可以 或者使用dir函数,一样的好用 关键字就需要自己根据获取的文件名进行判断了.

贺雍元4834Excel的vba中怎样怎样顺序引用一列的内容 -
卜魏娄15170906628 ______ OriginalSheet 为当前工作表名称, for i=1 to application.counta(sheets(＂OriginalSheet＂).range(＂a:a＂)) sheets.add activesheet.range(＂a＂ & i)=sheets(＂OriginalSheet＂)..range(＂a＂ & i) next

贺雍元4834EXCEL vba 读取指定文件夹的名字和循环打开文件夹 -
卜魏娄15170906628 ______ 就是遍历文件夹嘛,关键代码如下 在工程-引用里添加 microsoft scripting run time 然后用下面的两个函数递归遍历 就可以了 sub main() Dim objFSO As Object Dim objTemplateFolder As Object Set objFSO = New Scripting.FileSystemObject Set ...

贺雍元4834Excel 怎样用VBA提取图片文件名 -
卜魏娄15170906628 ______ Public Sub PicName() Dim Pth As String Dim Pic As String ActiveSheet.Range(＂A1＂).Select '选中激活窗口的A1 Pth = ＂C:\Users\Public\Pictures\Sample Pictures＂'路径,系统自带图片的地方 Pic = Dir(Pth & ＂\*.jpg＂) '查看JPG格式的图片名称 Do While Pic <> ＂＂ Selection = Pic '赋值 Pic = Dir Selection.Offset(1, 0).Select Loop End Sub

贺雍元4834如何用vba代码以新名打开一个xls文件 -
卜魏娄15170906628 ______ dim a as workbook set a = workbooks.add() 然后a就是新建的xls文件了,用 a.saveas 方法可以改名保存.未保存的文件貌似无法改名,试试有没 a.name 属性

贺雍元4834vb 怎么用dir函数得到指定目录下的所有文件名 -
卜魏娄15170906628 ______ vb获取目录下所有文件夹名称的方法Private Sub Form_Load()Dim sB As StringDim sF As StringDim c As IntegerCombo1.Clearc = 0Path = ＂\\10.56.88.102...