在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，設置成功如下圖：