office交流網(wǎng)--QQ交流群號(hào)

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

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

2021-01-05 08:00:00
tmtony8
原創(chuàng)
6372

在利用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è)置成功如下圖:

    分享
    文章分類
    聯(lián)系我們
    聯(lián)系人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動(dòng)訪問(wèn)