在access中設(shè)置Excel工作表的列寬

在利用access把數(shù)據(jù)表的數(shù)據(jù)導(dǎo)出到Excel中時(shí)，發(fā)現(xiàn)表格的列寬不夠，不能智能調(diào)整列寬。

所在在導(dǎo)出的同時(shí)，我們也希望可以通過(guò)vba代碼設(shè)置導(dǎo)出工作表的列寬

通過(guò)下面代碼，設(shè)置當(dāng)前工作薄“示例.xlsx”的“sheet1”工作表的A:G區(qū)域的列寬，其中文本框名為“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

設(shè)置列寬為20，設(shè)置成功如下圖：