如何通过Excel VBA自动适应访问表中的列

Question

因此，基本上我已经创建了一个宏以某种方式格式化工作表，并且我有一个代码可以将该信息导出并存储在访问数据库中。

问题是这些列是默认大小，不会自动拟合。如何自动调整通过Excel vba访问的列。我曾尝试过Google搜索和在线搜索，但似乎只能通过访问Excel查找格式。没有Excel可以访问。任何帮助将不胜感激。

谢谢

Answer 1

访问表不支持自动调整。

您可以通过CurrentDb.TableDefs("TableNameOrNumber").Fields("FieldNameOrNumber").Properties!ColumnWidth影响Access中的列宽。

但是，自动调整的常用值-2不适用于该属性，而只是将其设置为默认宽度。

这意味着您必须计算某个表列的宽度，或者如果使用相同的字体设置，则必须从Excel复制该宽度。