使用VBA ActiveX将Excel列转换为文本 解决日期格式自动变更问题

完全可以通过ActiveSheet.Range实现该需求，核心逻辑是先设置目标区域的文本格式，再执行粘贴操作，避免Excel自动触发日期格式转换。

VBA 实现代码 #

设置目标区域为文本格式的代码如下：

' 示例：将A列整列设置为文本格式，可替换为你需要的目标范围
ActiveSheet.Range("A:A").NumberFormat = "@"
' 执行完上面的代码后再进行粘贴操作即可

如果你不需要存为纯文本，只是要保留MM/DD/YY的显示格式，也可以直接设置日期格式：

ActiveSheet.Range("A:A").NumberFormat = "mm/dd/yy"

JavaScript（Office JS）实现代码 #

如果是使用Office JS开发插件操作Excel，写法如下：

await Excel.run(async (context) => {
  const activeSheet = context.workbook.worksheets.getActiveWorksheet();
  // 替换为你需要的目标列/区域
  const targetRange = activeSheet.getRange("A:A");
  targetRange.numberFormat = [["@"]];
  await context.sync();
  // 后续执行粘贴逻辑
});

注意事项 #

• 格式设置操作必须在粘贴之前执行，顺序颠倒的话Excel已经完成自动日期转换，再修改格式无法还原原始的8位日期文本
• 仅需要给存放日期的目标列设置格式即可，不会影响其他列的原有格式规则

内容的提问来源于stack exchange，提问作者Dylan Garland