Warning: fopen(/www/wwwroot/www.wendadaohang.com/data/md5_content_title/5b/5b409adfa69d58c94429521dd9d76750.txt): failed to open stream: No space left on device in /www/wwwroot/www.wendadaohang.com/inc/function.php on line 2468

Warning: flock() expects parameter 1 to be resource, bool given in /www/wwwroot/www.wendadaohang.com/inc/function.php on line 2469

Warning: fclose() expects parameter 1 to be resource, bool given in /www/wwwroot/www.wendadaohang.com/inc/function.php on line 2475
Excel中如何用VBA代码打开.xls文件 - 66问答网
  • 所有问题

    • Excel中如何用VBA代码打开.xls文件

    Excel文件名有规律：1.xls, 2.xls, 3.xls, 4.xls......
    要求用VBA代码实现
    自动打开1.xls，再关闭
    自动打开2.xls，再关闭
    自动打开3.xls，再关闭
    自动打开4.xls，再关闭
    写出代码好么．谢谢．

    举报该问题
    推荐答案   2007-11-30
    for i=1 to 4
    Workbooks.Open Filename:=i & ".xls"
    Workbooks(i & ".xls").Close
    next i
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    在VBA中,怎样打开或者调用另一个EXCEL文件答：Workbooks.Open Filename:=ThisWorkbook.Path & "\报表.xls"End If End Sub 而要打开一个文件夹里所有的文件，就需要用到FileSystemObject 对象，下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例：Sub ShowAllXlsFile()Dim GetFile As String, GetPFN As String, GetExt As String ...
    如何用vba打开一个excel文件,并在sheet1表格的单元格a1中输入数字45答：Workbooks.Open Filename:="D:\1.XLSX"'打开文件 Workbooks.Open Filename:="D:\1.XLSX", Password:=“123”, writerespassword:=“123” '输入密码打开文件 Sheets("sheet1").range("a1")="45"
    vba如何打开一个文件夹下所有xls文件答：Sub 打开excel表格()Dim myPath$, myFile$, AK As Workbook Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:\a\" '把文件路径定义给变量 myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 Do While myFile <> "" '当指定路径中有文件时进行...
    VBA中如何打开一个文件夹内的所有EXCEL文件?答：点选到你存放文件的那个Set myFolder = FSO.GetFolder(.InitialFileName)Set myFiles = myFolder.FilesFor Each oFile In myFilesstrName = UCase(oFile.Name)strName = VBA.Right(strName, 3)If strName = "xls" Or strName = "XLS" Then '这是扩展名选择'下面就可接着写打开文件读取...
    excel vba打开excel文件答：d:\excel.xls" '把路径赋值给一个字符串 Workbooks.Open Filename:=mypath '这句是打开文件 activeworkbook.visible=false '这句是隐藏文件 svalue=activeworkbook.sheets(1).range("a1").value '这句是用变量取得该文件表1中a1单元格的值 activeworkbook.viseble=true’显示文件 activeworkbook....
    EXCEL VBA 代码只能打开.xls格式的 不能打开xlsx格式的答：FileFilter:="MicroSoft Excel文件(*.xls*),*.xls*",MultiSelect:=True,Title:="选择需要解析的工作簿")这个都可以打开 FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xls),*.xls",MultiSelect:=True,Title:="选择需要解析的工作簿")这样就只能打开xls文件了。
    大家正在搜
    accessVBA代码怎么打开xls文件xls格式文件打不开xls文件打不开xls文件打不开怎么办手机怎么打开xls文件xls和xlsx哪个好用xls是什么格式用什么打开Excel代码
    相关问题
    求在EXCEL VBA中打开指定工作薄的完整代码？？？
    excel vba打开excel文件
    在VBA中，怎样打开或者调用另一个EXCEL文件
    vba 根据路径，打开一个excel文件，代码应该怎么写
    excel里 打开另一EXCEL文件 宏代码怎么写
    vba中打开一个excel文件就触发一段代码，怎么实现？
    VBA中如何打开一个文件夹内的所有EXCEL文件?
    怎样在EXCEL的VBA中打开一个WORD文件？