vba读取excel文件名(vba获取文件名称)

1. vba获取文件名称

1.点击鼠标右键，选择“新建”选项，然后点击“mircosoft office Excel 2007”选项新建一个Excel文件。

2.制作表格。

3.选择界面上方的“开发工具”选项，然后点击“宏”选项。

4.写明VBA代码名称，然后点击“创建”按钮。

5.写入指定的VBA代码。

6.点击插入一个按钮控件，并命名为“获取当前日期”。

7.选中“获取当前日期”控件，然后点击鼠标右键，选择“指定宏”。

8.将编写的代码指定至按钮控件上，然后点击“确定”按钮。

9.点击一次按钮控件，当前日期就自动获取成功了。

2. vba获取文件名称和路径

谢邀。可以在注册表里添加启动项，前提是有足够的权限。也可以创建一个快捷方式放在startup目录中。也也可以把程序注册成windows 服务， 运行方式为auto

3. vba获取excel名称

代码如下：

Sub 宏1() for i=2 to Sheets.Count Sheets(i)=trim(i-1) next iEnd Sub

4. vba提取文件名到excel

1.在excel中编写vba代码，创建word应用程序对象

2.打开word文档（此步骤可以设置固定的文件路径，也可以设置自定义选择文件路径）

3.读取word文档中的内容到变量

4.如果还涉及到word文档内容的改写，还需要把变量的值回写到word文档中

5.将变量的值写入到excel中

6.保存word文档

7.关闭word文档

8.如果不止一个word文档，则循环步骤2到步骤7

9.释放步骤1中创建的word应用程序对象

10.在excel中处理提取的内容

11.处理完毕

5. vba获取文件后缀

请参考我通常会使用的解决方法：

用编程语言表示 Filename = FILE + i 其实就是进行字符串操作，主要使用的就是&符号。

模拟代码(假设你已获得了文件名称并赋值给了file变量)

dim i as intger

dim filename as string

i=1

filename =""

for i=1 to 145

Filename = FILE &format( i,"000")

msgbox “当前文件名称为：” & Filename

next i

想问下，后缀如何连接呢，我的文件后缀是.ISD。

如果你想做的完美点，就需要先将文件名称里的后缀名去除后赋值给file变量，然后调整一下filename变量的赋值语句就行了。

Filename = FILE &format( i,"000") &“.ISD”

我通常因为处理的文档都是自己用的，所以不在乎文件名称的美观性，直接就是在原文件名后面加上需要加的内容（比如时间戳啥的）与后缀。

6. vba获取文件名称 数组

一维给二维赋值，参考实例如下：

for (i = 0; i < 10; i++)

{

for (j = 0; j < max; j++)

{

scanf("%d", &a[j]);

}

strncpy(b[i], a， max);

//memcpy（b[i], a, max);

}

二维数组赋值有两种方法，

第一种方法是单元格区域装入二维数组，如：

Arr=range("a1:b19")就可以把单元格区域的值装入数组arr

第二种就是通过循环装入，一个个数值装入。

例：

向二维数组写入数据和读取；

Dim x As Integer, y As Integer

Dim arr(1 To 5, 1 To 4)

For x = 1 To 5

7. vba提取文件名称

Sub test() Dim fso, fp, arr, wd, f, n%, fname$ Set fso = CreateObject("scripting.filesystemobject"

) Set fp = fso.getfolder(ThisWorkbook.Path) ReDim arr(1 To fp.Files.Count, 1 To 2) arr(1, 1) = "文件号": arr(1, 2) = "标题" Set wd = CreateObject("word.application") n = 1 For Each f In fp.Files If Right(f, 3) = "doc" Or Right(f, 4) = "docx" Then n = n + 1: arr(n, 1) = fso.getbasename(f) fname = fso.getfilename(f) With wd.Documents.Open(ThisWorkbook.Path & "\" & fname, True, True) wd.Visible = True arr(n, 2) = .Paragraphs(2).Range .Close End With End If Next wd.Quit Sheets(1).[a1].Resize(UBound(arr), UBound(arr, 2)) = arrEnd Sub现在有一个文件夹下有N个Word文件，要将他们的文件名和文档内的第二段提取到Excel表格，如何通过VBA实现

8. vba保存文件时指定文件名

可以使用如下代码： Sub 按钮1_Click() ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = Day(Date) ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value End Sub

9. vba获取文件名称命令

1.桌面上第一章中的每个工作簿名称放置到工作表中。

2.新建一个工作簿，将其命名为“第一章目录”，按Alt+f11组合键，打开宏界面。

3.在vba中，单击插入按钮，点击菜单插入下的模块，即可新建模块，系统默认为模块。

4.完成上述步骤后，输入代码？

5.返回到名为“第一章目录”呢工作簿，然后按“aw+f8”，组合键调出“宏”对话框。

6.单击“宏对话框”中的“执行”按钮，“宏”对话框自动关闭，代码自动执行，即第一页中的每个文件夹名称都显示在sheet1中，可以根据需要调整格式。

10. vba如何获取文件名

Public Sub PicName()Dim Pth As StringDim Pic As StringActiveSheet.Range("A1").Select '选中激活窗口的A1Pth = "C:UsersPublicPicturesSample Pictures"'路径，系统自带图片的地方Pic = Dir(Pth & "*.jpg") '查看JPG格式的图片名称Do While Pic <> "" Selection = Pic '赋值 Pic = Dir Selection.Offset(1, 0).SelectLoopEnd Sub

11. vba获取文件夹名称

在VBA中使用代码: Application.Path 获得路径名称。或者Sub s()Dim pth$pth = ThisWorkbook.PathMsgBox "本文件的路径为：" & pthEnd Sub