www.5129.net > vBA打开指定ExCEl文件

vBA打开指定ExCEl文件

Workbooks.Open "D:\1\1.xlsx" D:\1\1.xlsx 可以自行更改,也可以先定义后引用的方式打开,如 x=D:\1\1.xlsx Workbooks.Open X

sub 读取文件()dim PH$, FN$ph = '路径,注意最后要是“\”fn = dir(ph & "*.xls")do until fn = ""……你需要的处理fn = dir '依次读取 xls 文件,文件名赋值给fnloopend sub

用下面代码试试Sub 判断并打开文件()Dim a(1 To 3)a(1) = "E:\数据\一类\信息.xls"a(2) = "E:\数据\二类\信息.xls"a(3) = "E:\数据\三类\信息.xls"For i = 1 To 3 If Not (Dir(a(i)) = "") Then Workbooks.Open Filename:=a(i): Exit SubNextEnd Sub

太复杂,只能给你个建议:顺序读取sheet表 每读取1个sheet表,在路径下查找对应的文件打开 读取文件,把原始数据拷贝到sheet表 关闭打开的文件(AK.Close set AK = Nothing) 读取下一个sheet表

可以用 workbooks.open "d:\d.xls" application.run "d.xls!macro" 来打开某文件并运行宏

挺简单的.最关键的就是让word的VBA能调用excel的VBA的函数库.具体做法如下:1)添加函数库,让excel和word的VBA函数共享要用VBA联合操作word和excel,首先选定是用word的VBA来操作excel还是用excel的VBA来操作word,然后调

可以采取以下三个手段进行打开: 1、在WINDOWS里面改了TXT的默认打开程序 2、试试先用VBA启动editplus程序,再用sedkeys打开试试, 3、看editplus有没有直接带参数启动的同时打开指定的txt文件.

注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.ScreenUpdating = False '冻结屏幕,以防屏幕抖动 myPath = "c:\a\" '把文件路径定义给变量 myFile = Dir(myPath & "*.xls"

把你要自动打开的文件保存到下面路径就可以了C:\Program Files\Microsoft Office\Office12\XLSTART这个路径只是样例,你要找到你自己安装EXCEL的目录,然后存到XLSTART这个目录下即可.

Sub aa() Dim c Set c = Workbooks.Open(ThisWorkbook.Path & "\b.xls") '打开文件b.xls c.Sheets("sheet1").[a1] = ThisWorkbook.Sheets("sheet1").[a1] '将A.xls中sheet1表的A1单元格值写入到b.xls的sheet1的A1单元格 c.Save '保存b.xls c.Close '关闭b.xls Set c = NothingEnd Sub

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com