如何编辑由Access查询创建的Excel报表的列宽？

Question

我正在尝试自动调整Excel报表的列宽的过程。此Excel报告由Access中的查询生成。所以，我不能将VBA代码放在Excel文件中。我需要在Access中放置VBA代码或其他东西，这样每当我运行查询时，我会在输出Excel报告中自动调整列宽。我尝试了很少的东西，但没有一个在起作用。

'ThisWorkbook.Worksheets("qryFT").Columns.Autofit
'acOutpotquery.Select
'Column("A:A").Select
'Selection.EntireColumn.Autofit

Answer 1

假设您已经创建了Excel对象？我们称之为MyXL

myxl.workbooks.open filename:={path to your Excel sheet}    
myxl.activeworkbook.sheets(1).columns(x).autofit

其中x =列号