导航:首页 > 文件类型 > excel打开指定文件语句

excel打开指定文件语句

发布时间:2023-08-04 21:08:47

① 如何在Excel中用VBA打开指定的文件

打开E盘
Shell "explorer.exe " & "E:\", vbNormalFocus

② excel宏命令如何打开另一个excel文件

Function OpenExcelFile(sPath As String, ByVal sFileName As String, bDisplay As Boolean, sPwd As String) As Integer
'打开Excel文件
'Ver 1.05
'完成时间:2007.12.01
'设计:智能Excel 网站
'参数说明:
'sPath:文件绝对路径;sFileName:Excel文件名;bDisplay:True显示错误信息;sPwd:文件打开密码
'返回值:-1:同名文件已经打开;-2:文件不存在或密码错误;0:成功打开;1:文件已经被打开
Dim bOpen As Boolean
Dim sFullName As String
On Error Resume Next
If InStr(LCase(sFileName), ".xls") = 0 Then sFileName = sFileName & ".xls"
sFullName = Workbooks(sFileName).FullName
'检查是否已经打开同名的Excel文件
'如果有sFullName不为空
On Error GoTo 0
bOpen = False
If sFullName <> "" Then
If LCase(sFullName) = LCase(sPath & "\" & sFileName) Then
bOpen = True
'判断已经打开的同名文件是否本次需要打开的文件
OpenExcelFile = 1
'文件已经被打开
Else
If bDisplay Then
MsgBox "请首先关闭“" & sFileName & "”文件!" & Chr(13) & "不能同时打开同名文件,这是Excel的规定!", vbOKOnly + vbExclamation, "文件的打开错误"
End If
bOpen = True
OpenExcelFile = -1
'不能同时打开同名文件,这是Excel的规定
End If
End If
If Not bOpen Then
On Error GoTo errOpen
Workbooks.Open Filename:=sPath & "\" & sFileName, Password:=sPwd
On Error GoTo 0
OpenExcelFile = 0
'成功打开文件
End If
Exit Function
errOpen:
If bDisplay Then MsgBox Err.Description, vbOKOnly + vbExclamation, "文件的打开错误"
OpenExcelFile = -2
'文件不存在或密码错误
On Error GoTo 0
End Function

③ excel中如何实现用VBA的ope函数打开某个txt文件

open打开文件需要有个完全的路径名称,
建议先使用GetOpenFilename获取需要打开的文件全名称.
再使用open进行文件流操作.
dim count as long
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim File As Variant

Dim fText As String

'创建文件筛选列表
Filt = "Text Files (*.txt),*.txt,"

'默认显示*.*
FilterIndex = 1

'设置对话框标题
Title = "打开文本文件"

'获取文件路径以及文件名
File = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)

'如果取消对话框则退出
If File = False Then
MsgBox "您未选择文件"
Exit Sub
End If

'excel获取文本数据
Open File For Input As #1
count = 0
Do While Not EOF(1)
count = count + 1
Line Input #1, fText
Worksheets("Sheet1").Cells(count, 1).Value = fText
Loop
Close #1

④ 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就开始成为所适用操作平台上的电子制表软件的霸主。

⑤ Excel 如何使用VBA打开指定路径下的文件夹

将当前文件夹设为默认即可。
在你的语句前面加上下面两句:
ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path

阅读全文

与excel打开指定文件语句相关的资料

热点内容
微信支付resultcode 浏览:224
如何编程继电器模块 浏览:698
颜色配置文件和图像 浏览:595
小米云端怎么同步数据 浏览:420
苹果手机微信文件如何转钉钉 浏览:310
跨境电商新政文件 浏览:396
什么app能看香港房 浏览:590
丧尸电视剧哪个app看 浏览:196
电脑版上传视频找不到文件在哪 浏览:164
javastringtemplate 浏览:594
联想启天m7300能升级内存吗 浏览:698
精雕怎么打开图片文件 浏览:161
ug编程镗孔g76如何使用 浏览:719
7岁到18岁少儿编程学什么 浏览:413
mac文件怎么打印 浏览:756
农药登记许可证查询哪个网站 浏览:857
素材站用什么网站系统 浏览:173
ug如何用铰刀编程 浏览:647
三国志版本介绍 浏览:260
情侣用的定位app有哪些 浏览:244

友情链接