从另一个 Excel 文件读取数据时，在一个 Excel 文件中的 Excel 文本框中显示值

Question

我有一个 Excel VBA 将结果生成到一个 Excel 文件中，该文件继续运行几个 SQl 查询，并每 10-15 分钟阈值刷新一次。我想每隔 10-15 分钟定期读取/刷新结果到第二个 excel 文件中吗？

不确定我解释得是否正确，但这可能吗？我已经在一个 excel 文件中运行 VBA 代码并生成了很好的结果，目前每 10 分钟刷新一次。但我坚持第二步，我喜欢从这个文件中读取结果并将其显示到我的新 Excel 文件中。

欢迎提出任何想法或意见。

谢谢。 祖尔菲卡尔

上面是仪表板 excel 文件，我想将结果显示到另一个 excel 文件中的文本框中（B2、B3、..在下面的屏幕截图中的值）

Answer 1

如下所示，它会从您当前的工作簿中复制您的 A1 并将值放入模板工作簿的 B2 中：

 Sub sb_Copy_Save_Worksheet_As_Workbook()
    Dim workbookName As String
    workbookName = "C:/User/Me/test/mynewworkbook.xlsx"
    'set the path to your workbook
    Set otherWorkbook = Workbooks.Open(workbookName) 'open it
    otherWorkbook.Sheets("Sheet1").Range("B2") = ThisWorkbook.Sheets("Sheet1").Range("A1")
    'change the sheet name above to the sheet you want to copy
    otherWorkbook.Close SaveChanges:=True
    'change the path above to where you want the new file saved
End Sub