office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2021-01-05 08:00:00
tmtony8
原创
5854

在利用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,设置成功如下图:

    分享