dbf保存为html,如何保存 Excel 电子表格，然后将副本另存为 HTML?

您好，TH。您知道吗，您在问题中使用“save”(保存/拯救)这个词十分有趣。毕竟，编写此专栏的脚本专家(他比平常更懒 - 嗯，是更忙)刚刚看了一眼时钟并意识到“哎哟：我还没有写明天的专栏”。只有两件事情可以救他：1) 世界末日(但是毫无疑问，即使如此他的编辑还是会向他催稿)或者，2) 无需做任何研究他即能回答的问题。TH，您可救了脚本专家！

真的，至少是这位脚本专家。

为了回报您的英勇之举，我们将为您奉上我们的拿手招数：一个脚本，可保存 Excel 电子表格，然后将其副本另存为 HTML。那好；请不要特意抑制您欣喜的眼泪。这对我们来说同样是激动人心的时刻。

脚本如下：Const xlHTML = 44

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Add()

Set objWorksheet = objWorkbook.Worksheets(1)

objExcel.DisplayAlerts = False

objExcel.Cells(1, 1).Value = "A"

objExcel.Cells(1, 2).Value = "B"

objExcel.Cells(1, 3).Value = "C"

objExcel.Cells(1, 4).Value = "D"

objWorkbook.SaveAs "C:\Scripts\Test.xls"

objWorkbook.SaveAs "C:\Scripts\Test.htm", xlHTML

您能理解为什么 - 面对截止日期且几乎是命中注定的事情 - 我们决定回答这个问题：这个脚本几乎没什么东西。我们首先定义一个名为 xlHTML 的常量并将其值设为 44；我们将使用此常量告诉 Excel 我们要将电子表格的副本另存为 HTML。然后，我们使用四行代码创建一个可见的 Excel.Application 对象的实例，然后新建一个工作簿和工作表供我们使用。

然后，我们试着插入这行代码：objExcel.DisplayAlerts = False

这么做的原因何在？好，首先我们使用此脚本创建全新的工作簿，然后我们将其另存为 C:\Scripts\Test.xls(之后另存为 C:\Scripts\Test.htm)。这样就可以了，除非已存在名为 Test.xls 或 Test.htm 的文件。在这种情况下，Excel 不会自动覆盖现有文件；而是弹出一个对话框，询问您是否确定要覆盖该文件。该对话框将一直显示在屏幕上，直到您单击“是”、“否”或“取消”；毋庸置疑，这表示您的脚本也将在原地等待 - 什么都不做 - 直到您单击“是”、“否”或“取消”。

除非，您将 DisplayAlerts 设置为 False。DisplayAlerts 设置为 False 时，Excel 将不显示任何消息框；而是自动使用其原本要显示的消息框的默认选项。例如，覆盖现有文件的默认选项是“是”；因此，该脚本将直接使用默认值(是)并覆盖该文件，而不显示消息框并等待您指示。明白了吗？

不，在此我们没必要使用此选项。但是，我们接到很多关于这方面的问题(“如何不让 Excel 询问我是否要覆盖文件？”)，在一个专栏中回答两个问题,这似乎是一种狡猾的方式。将这个问题留到将来的专栏似乎更明智些，但是我们既然考虑到这方面问题，这次我们就提前讲了出来。真是的。

配置 DisplayAlerts 属性之后，我们使用了一些代码，只是将值 A、B、C 和 D 写入电子表格的四个单元格中。这样，我们就到了该脚本的最后两行：objWorkbook.SaveAs "C:\Scripts\Test.xls"

objWorkbook.SaveAs "C:\Scripts\Test.htm", xlHTML

在第一行中，我们要将我们的电子表格另存为电子表格；通过调用 SaveAs 方法并仅包含一个参数(新文件的完整路径)来实现。在第二行中，我们要将该电子表格的副本另存为 HTML 文件。请注意，我们仍使用 SaveAs 方法，并且我们仍指定新文件(这次带有 .htm 文件扩展名)的完整路径。但是，我们还添加了第二个参数(常量 xlHTML)；如上文所述，这会告诉 Excel 新文件的文件格式。我们可以将文件保存为 HTML 之外的格式吗？当然；多样性是生活的调味品，不是吗？以下仅提供了少数的常量及其相应值，我们可通过 SaveAs 方法来使用它们：

常量

值

xlCSV

6

xlCSVMac

22

xlCSVMSDOS

24

xlCSVWindows

23

xlDBF4

11

xlExcel9795

43

xlHtml

44

xlSYLK

2

xlTemplate

17

xlTextWindows

20

xlXMLData

47

xlXMLSpreadsheet

46

有关完整列表，请参阅 MSDN 上的 Excel VBA 语言参考。(查阅 xlFileFormat 枚举。)

那么，脚本专家是否从这次的侥幸逃脱中吸取到教训呢？现在，他们会不会在截止日期之前将他们的专栏做好呢？您一定认为他们会；其实，您可以这样期待。

只是不要去指望这种事情。