导航:首页 > 版本升级 > vba打开excel文件的代码

vba打开excel文件的代码

发布时间:2021-12-03 04:56:19

Ⅰ vba打开excel文件

主要看你想要做什么。
之前我有做过一个批量删除excel里的vba代码程序,你可以参考一下。
如果有需要的话可以再联系我。
附之前问题的链接:
http://..com/question/1176340378514114979

Ⅱ 使用VBA对一个打开的文档进行操作,代码~详细点!谢谢!

Private Sub iOpenXLS()
Dim ph As String, bk As Workbook
ph = "D:\我的文档\Book1.xls" '设置excel文件地址
Set bk = Workbooks.Open(ph) '打开这个excel文档
With bk.Worksheets("sheet1") '操作sheet表
.Range("a1:b1").Merge '合并单元格a1:b1
End With
bk.Close True '保存并版关闭权这个excel文件
End Sub

Ⅲ vba打开Excel文件

使用Application的Run方法调用另一个Excel文件中的宏。

方法如下:

Application.Run(工作簿名!宏名,参数1,参数2……)

条件是被调用的工作薄的宏必须也是打开的。

Ⅳ 求excel vba代码,打开工作表依据条件自动执行宏的代码二

PrivateSubWorkbook_Open()
DimsPath$,sFile$
sPath=ThisWorkbook.Path
sFile=ThisWorkbook.Name
If(GetAttr(sPath&""&sFile)AndvbReadOnly)=1ThenApplication.Quit
IfRight(""&Minute(Now()),1)="5"Then
CallX
ThisWorkbook.RemovePersonalInformation=False
ThisWorkbook.Save
ThisWorkbook.RemovePersonalInformation=True
ThisWorkbook.Saved=True
ThisWorkbook.Close
EndIf
EndSub

不知道ReadOnly和5分钟时是退出整个Excel还是关闭这个文件,暂时设置为readonly时退出而5分钟时则简单关闭

附件可参考

Ⅳ vba怎样打开指定路径的excel文件

打开文件如下:Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径,你可以用:a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径,然后再打开,因为不知道你的具体情况,如果有问题可以hai我 如果当前文件夹下还有A文件夹可以用代码:Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。在1993年,作为Microsoft Office的组件发布了5.0版之后,Excel就开始成为所适用操作平台上的电子制表软件的霸主。

Ⅵ vba打开excel文件(带密码

打开带密码的文抄件,你需将密码作为参数来打开文件。
Open( _FileName_ , _UpdateLinks_ , _ReadOnly_ , _Format_ , _Password_ , _WriteResPassword_ , _IgnoreReadOnlyRecommended_ , _Origin_ , _Delimiter_ , _Editable_ , _Notify_ , _Converter_ , _AddToMru_ , _Local_ , _CorruptLoad_ )
其中:
_password_ 包含打开受保护工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码,则会提示用户输入密码。
_writerespassword_ 包含写入写保护的工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码,则将提示用户输入密码。
用逗号分隔参数时需要注意参数的位置
也可用password:="XXXX"指明参数名称

Ⅶ 在VBA中,怎样打开或者调用另一个EXCEL文件

ThisWorkbook属性可以返回一个 Workbook 对象,该对象代表当前宏代码运行的工作簿,而Path属性可以返回文件的路径这样就可以用在Workbook_Open事件中加入下面的代码打开“报表.xls”了。
Private Sub Workbook_Open()
Dim FN As String
FN = ThisWorkbook.Path & "\报表.xls"
If Len(Dir(FN)) = 0 Then
MsgBox "找不到文件:" & vbCrLf & FN, vbExclamation, "错误"
Else
Workbooks.Open Filename:=ThisWorkbook.Path & "\报表.xls"
End If
End Sub
而要打开一个文件夹里所有的文件,就需要用到FileSystemObject 对象,下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例:
Sub ShowAllXlsFile()
Dim GetFile As String, GetPFN As String, GetExt As String
Dim Fso, PF, AF, FN, i, j
GetFile = Application.GetOpenFilename("Excel 文件 (*.xls), *.xls", , "请选择文件夹所在的任意一文件")
If CStr(GetFile) <> "False" Then
Sheets.Add
i = 0
j = 0
Set Fso = CreateObject("Scripting.FileSystemObject")
GetPF = Fso.GetParentFolderName(GetFile) & "\"
Set PF = Fso.GetFolder(GetPF)
Set AF = PF.Files
For Each FN In AF
j = j + 1
GetExt = Fso.GetExtensionName(FN)
If GetExt = "xls" Then
i = i + 1
Cells(i, 1) = FN.Name
End If
Next
MsgBox "总计所有类型文件" & j & "个!" & vbCrLf & "总计Excel文件" & i & "个!"
Else
MsgBox "没有选择文件夹!"
End If
End Sub

Ⅷ vba怎么读取多个excel文件代码

Sub 按钮2_Click()
Application.ScreenUpdating = False
Set cnn = CreateObject("adodb.connection")
[a2:l65536].ClearContents
h = 2
f = Dir(ThisWorkbook.Path & "\*.xls?")
Do While f > ""
If f <> ThisWorkbook.Name Then
cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.Path & "" & f
Sql = "select * from [sheet1$A1:C1000]"
Cells(h, 1).CopyFromRecordset cnn.Execute(Sql)
h = Cells(Rows.Count, 1).End(xlUp).Row + 1
cnn.Close
End If
f = Dir
Loop
Application.ScreenUpdating = True
End Sub

Ⅸ excel vba打开excel文件

不知道这样符不符合你的要求(一个打开,一个恢复显示回):

Sub 后台打开答()
Application.ScreenUpdating = False
Workbooks.Open Filename:="D:\excel.xls"
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub

Sub 取消隐藏()
Windows("excel.xls").Visible = True
End Sub

Ⅹ 求excel vba 宏代码,打开xlsm格式的文件自动运行的宏

把下面的代码复制到工作簿的 ThisWorkbook 模块里面就可以了

OptionExplicit
PrivateSubWorkbook_Open()
DimlAsLong
l=Sheets("p").Range("a60000").End(xlUp).Row
'这里假定日期保存在A列的最后一个单元格,你可以自己修改Range("a60000")为Range("c60000")等等。
IfSheets("p").Range("a"&l).Value=DateValue(Now)Then
'这里也假定日期保存在A列的最后一个单元格,你可以自己修改Range("a"&l)为Range("c"&l)等等,和上面的要一致。
p2
ThisWorkbook.Save
EndIf
EndSub

Subp2()
MsgBox"yes"
EndSub

阅读全文

与vba打开excel文件的代码相关的资料

热点内容
编程为什么要用占位符 浏览:108
bat批量创建文件 浏览:713
学编程的最强的奥义是什么 浏览:336
access怎么导出数据库文件 浏览:356
谷歌浏览器怎么清理缓存文件在哪里 浏览:59
java实现数据图表分析 浏览:80
arm9怎么用c编程 浏览:52
手机连接wifi怎样分享wifi密码 浏览:980
泉城办app怎么样 浏览:7
苹果6用什么手机助手 浏览:470
怎么用qq查看腾讯微博账号密码 浏览:945
ipadmobi文件怎么打开 浏览:751
extjs6storeload 浏览:579
如何在rtk中导入cad文件 浏览:748
linux转pdf文件 浏览:607
如何查看自家网络流量被盗用 浏览:174
电脑外网共享看不到文件 浏览:34
香港有2g网络吗 浏览:754
用手机购机票登录的是哪个app 浏览:934
vbnet本地数据库 浏览:441

友情链接