另存为语法和range.select索引语法？

Question

我正在尝试编写一些代码行来选择 Excel 中的范围，但该范围的索引有语法错误，有什么建议吗？另外，我试图将 XML 文件另存为 xlsm 文件，其文件名来自存储在数组中的两个文件名的串联，并且出现类似的错误。有什么建议吗？

        Range (Allfiles(index)).select 'Allfiles is an array containing the file names ' type error


        Activeworkbooks.saveas "c:\Allfiles(1):&:Allfiles (count).xlsm", fileformat=52 'error

Answer 1

当您收到“错误”时，有用的“错误消息”将提示您问题所在。通过阅读此消息并对其采取行动，您可以逐步调试代码。

Activeworkbooks.SaveAs "c:\Allfiles(1):&:Allfiles (count).xlsm", FileFormat = 52
'                                           Variable not defined ^

在 VBA 中指定参数的方法是使用 :=，而不是 =。让我们更正该问题并再次运行它...

Activeworkbooks.SaveAs "c:\Allfiles(1):&:Allfiles (count).xlsm", FileFormat:=52
' ^ Variable not defined

它的名称为 ActiveWorkbook，而不是 Activeworkbooks。让我们更正这个问题并再次运行它...

ActiveWorkbook.SaveAs "c:\Allfiles(1):&:Allfiles (count).xlsm", FileFormat:=52
'                                     ^ The file could not be accessed.

我不能声称确切地知道您正在运行什么操作系统，但考虑到 C:\，我会假设 Windows 的某种风格。您可能知道 : 在 Windows 路径中是非法字符？

无论如何，我不确定您要将此文件保存在哪里。我最好的猜测：

ActiveWorkbook.SaveAs "C:\" & Allfiles(1) & Allfiles(UBound(Allfiles)) & ".xlsm", _
    FileFormat:=52

至于你的第一行代码，Range (Allfiles(index)).Select，我不知道你想在那里做什么。您可能需要阅读 Excel-VBA 的帮助文件以了解 Range 的作用。