方法Open作用于对象workbooks时失败 1004错误

手木

lzxdy 发表于 2017-6-26 19:07
移动盘符不是很稳定，可考虑用点选择获取文件。
即将Workbooks.Open "I:\17 出货结算表\公司 出货结算表.x ...

这样好像可以了....我再试试其他的...谢谢各位的大神帮忙!!

手木

lzxdy 发表于 2017-6-26 19:07
移动盘符不是很稳定，可考虑用点选择获取文件。
即将Workbooks.Open "I:\17 出货结算表\公司 出货结算表.x ...

好像要自己手动点一下文件.才能打开 ..然后剩下的才会自己运行   (我一共有近10段这样的代码) 第一个文件我按你的方式来打开文件后 ..剩下的Workbooks.Open "I:\17 出货结算表\二公司 出货结算表.xls"就能自动打开文件了

PersueOfPersist

lzxdy 发表于 2017-6-26 19:07
移动盘符不是很稳定，可考虑用点选择获取文件。
即将Workbooks.Open "I:\17 出货结算表\公司 出货结算表.x ...

应该是这样

手木

我现在解决的办法如下...就是老办法 先把文件在2010的文件格式中处理*.xlsx  处理完后再另存为Excel2003的文件格式*.xls(因为这表要传给客户的 客户的电脑上用的是excel2003版本) 实在是没办法的办法!!

Sub 导出数据()

    Windows("17年裁床单操作.xls").Activate
    Sheets("裁床数").Select
   
    On Error Resume Next
    ActiveSheet.ShowAllData
  
    ActiveSheet.Range("$B$1:$AM$5000").AutoFilter Field:=2, Criteria1:="文杰"
    Columns("A:AN").Select
    Selection.Copy
   
    Workbooks.Open "I:\17 出货结算表\文杰 出货结算表.xls"
   
    Windows("文杰 出货结算表.xls").Activate
   
    Sheets("裁量").Select
    Columns("A:AN").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    ChDir "I:\17 出货结算表"
    ActiveWorkbook.SaveAs Filename:="I:\17 出货结算表\文杰.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
   
   
    Windows("文杰 出货结算表.xls").Close SaveChanges:=True

    Windows("17年裁床单操作.xls").Activate
    Sheets("裁床数").Select
   
End Sub

手木

14楼 代码是错的...刚刚改完没保存..再发一次正确的

Sub 导出数据()

    Windows("17年裁床单操作.xls").Activate
    Sheets("裁床数").Select
   
    On Error Resume Next
    ActiveSheet.ShowAllData

    ActiveSheet.Range("$B$1:$AM$5000").AutoFilter Field:=2, Criteria1:="文杰"
    Columns("A:AN").Select
    Selection.Copy
   
    Workbooks.Open "I:\17 出货结算表\文杰 出货结算表.xlsx"
   
    Windows("文杰 出货结算表.xlsx").Activate
   
    Sheets("裁量").Select
    Columns("A:AN").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Application.DisplayAlerts = False '取消"发现同名文件是否覆盖的提示窗口"
    ChDir "I:\17 出货结算表"
    ActiveWorkbook.SaveAs Filename:="I:\17 出货结算表\文杰.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Application.DisplayAlerts = True '取消"发现同名文件是否覆盖的提示窗口"
   
    Windows("文杰.xls").Close SaveChanges:=True

    Windows("17年裁床单操作.xls").Activate
    Sheets("裁床数").Select

End Sub

手木

出现1004错误的问题已经解决  :解决Excel 2003出现“运行时错误“1004”问题的方法 打开Excel时，弹出以下对话框： 经多次实践发现，解决这个问题，只要删除这个文件夹 "XLSTART”，即可。 具体路径是： C:\Documents andSettings\Administrator\Application Data\Microsoft\Excel\XLSTART 重启电脑就好了
网上来源 https://wenku.baidu.com/view/2c648ab610661ed9ad51f3ce.html