『壹』 用VB查找某个文件夹里的Excel文件，并读取该Excel表格里的相关数据
1、用dir(“文件夹路径”)获取文件名2、判断文件名是否为.xls后缀，用dountil做循环3、结束循环之前用dir()，这次不带参数，获取下一个文件名
『贰』 VB6中，如何判断excel工作簿中是否存在一个工作表，不存在就建立一个
xlApp.Sheets.Add after:=Sheets(Sheets.Count) '在工作表后加入一个工作表这句错了，等于号后面的没指定对象所以报错修改为xlApp.Sheets.Add after:=xlApp.Sheets(xlApp.Sheets.Count) '在工作表后加入一个工作表
『叁』 Excel 怎样用VB代码得知文件夹里文件的个数
VB中需要先引用EXCEL.applicaiton对象之后，才可以使用EXCEL相关的方法和属性！
『肆』 用VB先判断当前目录下有没有EXCEL文件打开，如果有打开的EXCEL，向EXCEL文件中自动写入数据。。
可以实现。dim ExcelApp as excel.applictionset excelapp=get(,"excel.appliction")可以判断是不是打开了。
『伍』 vb 如何判断已经存在的同名excel文件
Private Sub Command1_Click()If Dir(App.Path & "\abc.xls") = "" Then MsgBox "文件不存在！" Else MsgBox "文件已经存在！"End Sub
『陆』 EXCEL中VB编程有关如何模糊判断文件是否存在的问题
Sub aaa()Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")On Error Resume Nextfso.CopyFile ("d:\1" & "\*2010*.*"), "d:\2"End Sub
『柒』 EXCEL中VB有关对文件进行属性赋于和判断的问题
Sub xabc()fpath = "e:\" '指定文件夹Dim fs, f1, f2Set fs = CreateObject("Scripting.FileSystemObject")Set f1 = fs.GetFolder(fpath)For Each i In f1.FilesFilename = (fpath & i.Name)If GetAttr(Filename) <> 1 ThenSet f2 = fs.GetFile(Filename)f2.Attributes = 1 '用Attributes属性设置文件属性End IfNextEnd Sub文件的属性值是多个相加而成的，这儿只判断单纯的只读属性。由 GetAttr 返回的值，是下面这些属性值的总和： 常数 值 描述 vbNormal 0 常规 vbReadOnly 1 只读 vbHidden 2 隐藏 vbSystem 4 系统文件 vbDirectory 16 目录或文件夹 vbArchive 32 上次备份以后，文件已经改变 vbalias 64 指定的文件名是别名。 属性值是1时，是只读；是3时也是只读，只不过同时还是隐藏的。
『捌』 请教excel中的vb编程，判断文件是否存在
两种方式。请根据情况，选择一种适合的方法。一、通过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下使用，可自作成为宏或函数都可以。
『玖』 怎么用vb判断某个excel文件是否打开
Workbooks("XXXX.xls").Close False/True 将XXXX.xls换成你要关闭的文件名（必须确保已经打开），如果不保存关闭，则参数用False，反之用TRUE
