在access中设置Excel工作表的列宽

在利用access把数据表的数据导出到Excel中时，发现表格的列宽不够，不能智能调整列宽。

所在在导出的同时，我们也希望可以通过vba代码设置导出工作表的列宽

通过下面代码，设置当前工作薄“示例.xlsx”的“sheet1”工作表的A:G区域的列宽，其中文本框名为“txt1”

Private Sub cmd1_Click()
 
    Dim xlApp As Excel.Application
    Dim xlWbk As Excel.Workbook
    Dim xlWsh As Excel.Worksheet
 
    Set xlApp = GetObject(, "Excel.Application")  '激活工作表
    xlApp.Visible = True
    Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例.xlsx")
    Set xlWsh = xlWbk.Worksheets("sheet1")
    xlWsh.Activate    
    xlWsh.Range("A:G").ColumnWidth = txt1
    Set xlWsh = Nothing
    Set xlWbk = Nothing
    Set xlApp = Nothing
End Sub

设置列宽为20，设置成功如下图：