×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

@Florida

Thank you. Please see my code

zhao8770(忙)
本文发表在 rolia.net 枫下论坛I use this Macro to open over 30 files in one folder, this error only happens when open one of these files (all files have identicla formate and layout).

Here is my code,

For j = 1 To NumFiles
Application.ScreenUpdating = False

SiteFilePathname = Sheets("AllDataSheet").Cells(5 + j, "C").Value
SiteFileName = Sheets("AllDataSheet").Cells(5 + j, "D").Value
Workbooks.Open FileName:=SiteFilePathname, UpdateLinks:=0

'Using Site File Name as Site Name Code, a very lengthy formula!!
Sheets("menu").Cells(6, "I").Value = "=LEFT(MID(CELL(""FILENAME"",F9),FIND(""["",CELL(""FILENAME"",F9))+1,FIND(""]"",CELL(""FILENAME"",F9))-FIND(""["",CELL(""FILENAME"",F9))-1),LEN(MID(CELL(""FILENAME"",F9),FIND(""["",CELL(""FILENAME"",F9))+1,FIND(""]"",CELL(""FILENAME"",F9))-FIND(""["",CELL(""FILENAME"",F9))-1))-4)"

Call CheckIfIsTempFile
Next

End of code更多精彩文章及讨论，请光临枫下论坛 rolia.net
(#2815007@0)
Last Updated: 2006-3-2
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / 专业技术讨论 / Could anyone help me out of the Excel 2003 Automation error -zhao8770(忙); 2006-3-1 {269} (#2813248@0)
    After upgrading from Excel 97 to Excel 2003, I get the
    following error message when executing an Excel Macro . . . "automation error.
    unspecified error" . After the error, the file that related with this error will never openable.

    Many thanks if anyone can help,
    • Can you post the macro?Otherwise it's very hard to help. -schen(睹往睹来.非赌徒也!); 2006-3-1 (#2814078@0)
      • Thank you. Please see my code -zhao8770(忙); 2006-3-2 {1060} (#2815007@0)
        本文发表在 rolia.net 枫下论坛I use this Macro to open over 30 files in one folder, this error only happens when open one of these files (all files have identicla formate and layout).

        Here is my code,

        For j = 1 To NumFiles
        Application.ScreenUpdating = False

        SiteFilePathname = Sheets("AllDataSheet").Cells(5 + j, "C").Value
        SiteFileName = Sheets("AllDataSheet").Cells(5 + j, "D").Value
        Workbooks.Open FileName:=SiteFilePathname, UpdateLinks:=0

        'Using Site File Name as Site Name Code, a very lengthy formula!!
        Sheets("menu").Cells(6, "I").Value = "=LEFT(MID(CELL(""FILENAME"",F9),FIND(""["",CELL(""FILENAME"",F9))+1,FIND(""]"",CELL(""FILENAME"",F9))-FIND(""["",CELL(""FILENAME"",F9))-1),LEN(MID(CELL(""FILENAME"",F9),FIND(""["",CELL(""FILENAME"",F9))+1,FIND(""]"",CELL(""FILENAME"",F9))-FIND(""["",CELL(""FILENAME"",F9))-1))-4)"

        Call CheckIfIsTempFile
        Next

        End of code更多精彩文章及讨论，请光临枫下论坛 rolia.net

More Topics

  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
  • 扔硬币的实验研究
    • 枫下论坛主坛 /  工作学习 /  专业技术讨论