<strong id="nr4sf"></strong>

<button id="nr4sf"><object id="nr4sf"></object></button>

    <rp id="nr4sf"></rp>
    <th id="nr4sf"><track id="nr4sf"></track></th>
      <s id="nr4sf"></s>
    1. <em id="nr4sf"></em>
    2. <li id="nr4sf"><acronym id="nr4sf"></acronym></li>
    3. <button id="nr4sf"></button>

      office交流網--QQ交流群號

      Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

      在access中設置Excel工作表的列寬

      2021-01-05 08:00:00
      tmtony8
      原創
      5688

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

        分享
        一级日本牲交大片束缚_玖玖资源站亚洲最大的网站_56PAO国产成视频永久_97人人操人人摸
        <strong id="nr4sf"></strong>

        <button id="nr4sf"><object id="nr4sf"></object></button>

        <rp id="nr4sf"></rp>
        <th id="nr4sf"><track id="nr4sf"></track></th>
          <s id="nr4sf"></s>
        1. <em id="nr4sf"></em>
        2. <li id="nr4sf"><acronym id="nr4sf"></acronym></li>
        3. <button id="nr4sf"></button>