1、用户导入,xls文件,导入程序后,检查文件是否存在。
2、要求用户提供要分析的文档表xls的名称。这就是它停止的地方。该程序没有检测到可用的床单。
两种方式。请根据情况,选择一种适合的方法。
一、通过FileExists判断文件是否存在 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists("E:\dzwebs\Pic\logo.gif" ) = True Then MsgBox "文件存在" Else MsgBox "文件不存在" End If 以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:\dzwebs\Pic\logo.gif"为文件路径及文件名称,可自行修改。
二、通过Dir来判断 Dim YouFile As String YouFile = Dir("E:\MyPictures\Pic\logo.gif") If x <>"" Then MsgBox "文件存在" Else MsgBox "文件不存在" Endif "E:\MyPictures\Pic\logo.gif"为文件路径及文件名称,可自行修改。当然,如上代码,也在VBA下使用,可自作成为宏或函数都可以。
写一段VBA程序
Sub xx()
Dim i%
i = 2
Do While Cells(i, 1) <>""
If Dir(Cells(i, 1) &"\" &Cells(i, 2)) <>"" Then
Cells(i, 4) = "是"
Else
Cells(i, 4) = "否"
End If
i = i + 1
Loop
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)