导航:首页 > 文件教程 > excel的宏获取文件路径

excel的宏获取文件路径

发布时间:2021-03-05 16:37:12

㈠ Excel 宏抽取文件到指定位置

基本方法
快速选中全部工作表
右键单击工作窗口下面的工作表标签,在弹出的菜单中选择“选定全部工作表”命令即可()。

快速启动Excel
如果想在启动系统自动运行Excel,可以这样操作: 1.双击“我的电脑”图标,进入Windows目录,依次打开“Start Menu\Programs\启动”文件夹; 2.打开Excel所在的文件夹,用鼠标将Excel图标拖到“启动”文件夹,这时Excel的快捷方式就被复制到“启动”文件夹中,下次启动Windows就可快速启动Excel了。 如果Windows系统已启动,你可用以下方法快速启动Excel: 方法一:单击“开始→文档”命令里的任一Excel工作簿即可。 方法二:用鼠标从“我的电脑”中将Excel应用程序拖到桌面上,然后从快捷菜单中选择“在当前位置创建快捷方式”,以后启动时只需双击快捷方式即可。

快速删除选定区域数据
如果用鼠标右键向上或向左(反向)拖动选定单元格区域的填充柄时,没有将其拖出选定区域即释放了鼠标右键,则将删除选定区域中的部分或全部数据(即拖动过程中变成灰色模糊的单元格区域,在释放了鼠标右键后其内容将被删除)。

给单元格重新命名
Excel给每个单元格都有一个默认的名字,其命名规则是列标加横标,例如D3表示第四列、第三行的单元格。如果要将某单元格重新命名,可以采用下面两种方法: 1.只要用鼠标单击某单元格,在表的左上角就会看到它当前的名字,再用鼠标选中名字,就可以输入一个新的名字了。 2.选中要命名的单元格,单击“插入→名称→定义”命令,显示“定义名称”对话框,在“在当前工作簿中的名称”框里输入名字,单击“确定”按钮即可()。 注意:在给单元格命名时需注意名称的第一个字符必须是字母或汉字,它最多可包含255个字符,可以包含大、小写字符,但是名称中不能有空格且不能与单元格引用相同。

㈡ 如何用excel宏提取文件名生成目录如何用excel宏提取文件名生成目录比如要从C盘提取其所有的文件名(

方法一:
1、在那个文件夹内新建一个.TXT文件(如wenjian.txt),用记事本单开输入
dir> 1.txt
保存退出
将刚才的.TXT(wenjian.txt)更名为.bat文件(wenjian.bat)
双击wenjian.bat文件运行一次,在文件夹内多出一个1.txt文件
打开1.txt文件,将其中的内容粘贴到Excel中,数据——分列处理就可以得到你要的文件名列表了!

方法二:
在那个文件夹下新建Excel文件,打开新建的Excel文件,右击工作表标签(如Sheet1),查看代码——在代码编辑器中输入以下代码:

Sub aaa()
f = Dir("c:\*.*")
han = 1
Do While f > ""
Cells(han, 1).Value = f
han = han + 1
f = Dir
Loop
End Sub

回到Excel表格中,工具——宏——宏——选择Sheet1.Test——执行
看看效果吧!
另外可以到http://www.excelhome.net/,看看有没有更适合你的。

㈢ excel录制的宏,文件在哪里

1.按“工具-宏-录制宏”后,你在EXCEL中的后续操作都会被EXCEL用代码的方式记录,直回到按“停止录制”为止。答比如需要将“选定的单元格”内自动填入一段文字,如“ABCD”,可按下面步骤操作:先选中任意一个单元格,再按“工具-宏-录制宏”。

㈣ 如何在excel使用宏提取文件夹内文本的内容

写了一小部分,可以获取文件夹下所有文件名称,路径,大小,创建日期,不知道能否对你有帮助。
1.添加VBA代码,选择新插入的模块后,插入以下代码
Sub getpath()
Range("A2:C1000").ClearContents '清空A2:C1000列
On Error Resume Next
Dim shell As Variant
Set shell = CreateObject("Shell.Application")
Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址
Set shell = Nothing
If filePath Is Nothing Then '检测是否获得有效路径,如取消直接跳出程序
Exit Sub
Else
gg = filePath.Items.Item.Path
End If
Set obj = CreateObject("Scripting.FileSystemObject") '定义变量
Set fld = obj.getfolder(gg) '获取路径
For Each ff In fld.Files '遍历文件夹里文件
m = m + 1
Cells(m + 1, 1) = ff.Name
Cells(m + 1, 2) = ff.Path
Cells(m + 1, 3) = ff.Size
Cells(m + 1, 4) = ff.DateCreated

Next
End Sub
2.运行宏(alt+F8),宏的名称为getpath

㈤ Excel使用宏将文件另存在原有文件的路径下

因为同一路径里面的文件不能重名,另存会出错的

㈥ 在EXCEL的宏命令中怎样修改文件的路径

Sub GetF()
FileN = Application.GetOpenFilename()
If FileN <> False Then
Workbooks.Open (FileN)
End If
End Sub

㈦ VB制作的EXCEL加载宏.DLL如何获取当前EXCEL文件的路径及名称

设计器代码,主要是open 事件代码。

PublicWithEventsXlAppAsExcel.Application

PrivateSubAddinInstance_OnConnection(ByValApplicationAsObject,.ext_ConnectMode,ByValAddInInstAsObject,custom()AsVariant)
SetXlApp=Application
EndSub

PrivateSubAddinInstance_OnDisconnection(.ext_DisconnectMode,custom()AsVariant)
SetXlApp=Nothing
EndSub

PrivateSubXlApp_WorkbookOpen(ByValWbAsExcel.Workbook)
路径=Wb.FullName
名称=Wb.Name
EndSub

㈧ [Macro, VBA] Excel 宏如何取得文件路径

ThisWorkbook.FullName可返回路径及文件名
ThisWorkbook.Path可返回路径

㈨ 如何用excel宏在该Excel文件所在目录下创建指定文件

Sub 宏建立文件夹()
'此宏用于根据已经存在的工作表“A列为~1000,B列为公司名称”,在此文件目录下创建相应的文件夹放在“文件目录”文件夹中
Dim X As Integer, ZM As String, MM As String, LJ As String, P As String, MX As String

ZM = "文件目录"

LJ = ThisWorkbook.Path '当前文档的路径

P = LJ & "\" & ZM

If Dir(P, vbDirectory) <> "" Then
MsgBox "文件夹存在,请删除"

Else

MsgBox "文件夹不存在!,系统将创建一个名为" & "的文件夹"
MkDir P
Shell "EXPLORER.EXE " & P '打开文件夹《文件目录》
For X = 4 To 1000
ZM = "文件目录"
MM = Cells(X, 2)
LJ = ThisWorkbook.Path
P = LJ & "\" & ZM
MX = P & "\" & MM
If Cells(X, 1) = "" Then GoSub 100
MkDir MX '创建明细文件夹

Next X
End If

㈩ 如何用excel宏提取文件名生成目录

写了一小部分,可以获取文件夹下所有文件名称,路径,大小,创建日期,不知道能否对你有帮助。
1.添加VBA代码,选择新插入的模块后,插入以下代码
Sub getpath()
Range("A2:C1000").ClearContents '清空A2:C1000列
On Error Resume Next
Dim shell As Variant
Set shell = CreateObject("Shell.Application")
Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址
Set shell = Nothing
If filePath Is Nothing Then '检测是否获得有效路径,如取消直接跳出程序
Exit Sub
Else
gg = filePath.Items.Item.Path
End If
Set obj = CreateObject("Scripting.FileSystemObject") '定义变量
Set fld = obj.getfolder(gg) '获取路径
For Each ff In fld.Files '遍历文件夹里文件
m = m + 1
Cells(m + 1, 1) = ff.Name
Cells(m + 1, 2) = ff.Path
Cells(m + 1, 3) = ff.Size
Cells(m + 1, 4) = ff.DateCreated

Next
End Sub
2.运行宏(alt+F8),宏的名称为getpath

阅读全文

与excel的宏获取文件路径相关的资料

热点内容
点付款码出现网络不可用什么情况 浏览:659
米璐璐作品集下载txt 浏览:238
cad新建文件怎么不显示 浏览:380
重生香港1973炒股 浏览:400
日本大奶电影 浏览:490
linux空间不足如何解决办法 浏览:205
网络订单处理 浏览:589
团鬼六所有的电影 浏览:157
十大必看火影小说排行榜 浏览:580
大香蕉一区 浏览:697
台版iphone6有什么区别 浏览:711
小说电影图片 浏览:114
求个在线看h的网站 浏览:859
神鼠电影网第一页 浏览:938
361电影电视剧 浏览:303
韩国一个护工照顾病人的电影 浏览:398
重生薛仁贵之推薛琪 浏览:42
免费观看欧美纯爱电影 浏览:60
男主角叫徐东的小说 浏览:274
绿版各种改编玄幻小说 浏览:560

友情链接