在access中设置Excel工作表的列宽
- 2021-01-05 08:00:00
- tmtony8 原创
- 6953
在利用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,设置成功如下图:
文章分类
联系我们
联系人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |