小编Gen*_*ene的帖子

我编写了一个Excel VBA宏,它在对数据执行计算之前从HTML文件(本地存储)导入数据.

目前,HTML文件使用绝对路径引用:

Workbooks.Open FileName:="C:\Documents and Settings\Senior Caterer\My Documents\Endurance Calculation\TRICATEndurance Summary.html"

但是我想使用相对路径来引用它而不是绝对路径(这是因为我想将电子表格分发给可能不使用相同文件夹结构的同事).由于html文件和excel电子表格位于同一个文件夹中,我不会想到这会很困难,但是我完全无法做到这一点.我在网上搜索过,建议的解决方案都显得非常复杂.

我正在使用Excel 2000和2002工作,但是当我计划分发它时,我希望它能够与尽可能多的Excel版本一起使用.

任何建议都感激不尽.

我一直在编写一个VBA宏,它在Excel中打开一个HTML文档(为了对它执行各种计算).Excel将在当前文件夹中搜索HTML文档.如果它找不到它,它将生成一个文件打开框,用户可以手动浏览到HTML文档的位置.到目前为止都很好.但是,如果用户选择取消(而不是选择文件),我希望Excel显示一条消息并退出.

生成消息但代码因以下错误而停止:

运行时错误'424':需要对象.

这听起来不是太麻烦,但我一直在碰到一块又一块砖墙,试图找出造成问题的原因.

似乎不起作用的子是:

Sub ExitWithoutPrompt()

MsgBox "You failed to select a file, therefore Excel will now close.  Please refer to the readme file."
Excel.Application.DisplayAlerts = False
Excel.Application.Quit

End Sub

我正在使用MS Excel 2002,但我渴望解决方案能够处理尽可能多的Excel变体.

感谢我在哪里出错了.顺便说一句,我是一个完全新手,所以如果可能的话,请为我提供任何指导,啰嗦......

因为它可能是下面使用的(有使这篇文章变得笨拙的风险)是我在宏中使用的另外两个子:

第一个子:

Sub Endurance()

Call OpenHTML

Range("G27").Value = "Category"
Range("G28").Value = "Meat"
Range("G29").Value = "Veg"
Range("G30").Value = "PRP"
Range("F27").Value = "Fleet"
Range("E27").Value = "Consumption"

Range("E32").Value = "Endurance"

Range("E33").Value = "Lowest Category"
Range("E34").Value = "Fleet"
Range("E35").Value = "Consumption"

Range("E27, F27, G27, E32").Font.Bold = True
Range("F28").Value = …