㈠ 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