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