用于将Teradata查询结果复制到Pdf文件的VBA代码

Question

我对Excel VBA有疑问。是否可以将Teradata中执行的查询结果导出到Pdf文件中？可以请某人分享VBA代码吗？

我正在完成所有的连接和其他工作。我只是在将结果从Teradata结果窗口

导出到Pdf文件时卡住了

谢谢， 菲利普

Answer 1

我不认为这与Teradata有任何关系。此代码适用于通过MsQuery ODBC链接到TD后端的Excel数据：

Set xlObj = CreateObject("Excel.Application")

set xlWB = xlObj.Workbooks.Open("C:\Sys\1.xls")

xlWB.ActiveSheet.ExportAsFixedFormat 0, "C:\Sys\1" & ".pdf", 0, 1, 0, , ,0

xlWB.close False

xlObj.quit