Question

我有一个运行SQL代码的Excel工作表（.xlsm）。我在宏表中添加了一个运行按钮来运行查询，然后将结果输出到网络文件夹中。问题是我能用它来实现的唯一形式是Text。我希望它导出到Excel（.xlsx）文件。我的模块内容如下：

 Sub Run()

    Sheets("QM_INQ_DATA").Range("A1").ListObject.QueryTable.Refresh BackgroundQuery:=False

    ThisWorkbook.SaveAs Filename:= _
        "Z:\QMDaily\Queue Manager INQ Daily Report " & Format(Date - 1, "MM.DD.YYYY") & ".xlsx" _
        , FileFormat:=51, CreateBackup:=False

End Sub

我对VBA一无所知所以我确信这是一个简单的解决方案。

Answer 1

您将无法保存为.xlsx文件，因为它保留用于无宏工作簿，显然，您的工作簿有一个宏。相反，您可以在VBA中创建新工作簿，将查询结果存储在新工作簿中，然后将其另存为.xlsx。我知道你在VBA方面没什么经验，但我不希望SO的任何人为你写完整的宏...

将宏结果保存到Excel工作表 - VBA

1 个答案: