时间戳

首页 > 解决方案 > 如何从一系列过滤的单元格中复制和过去的日期文本到 CSV？

excel - 如何从一系列过滤的单元格中复制和过去的日期文本到 CSV？

问题描述

我正在尝试将一系列过滤的、日期格式的单元格复制到 CSV 文件中。我想要日期的文本，而不是日期代码。

这就是我到目前为止所拥有的。它获取日期代码，但我想要文本。

.Range.Columns(EmployeeEffectiveDateCol).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    TemplateSheet.Range("G2").PasteSpecial (xlPasteValues)

标签： excelvbatextcopypaste

解决方案

好的，我认为这个问题的答案不存在！哈哈。我找不到一种方法来获取一系列过滤单元格的文本，但我想出了一个解决方法。

CSV 文件在我填充时在 Excel 中打开。此时可以对单元格进行格式化，但关闭文件时格式化会丢失。所以，我需要在保存和关闭之前重置单元格。为此，我找到了一个循环，我可以在复制/粘贴完成后立即调用它：

TemplateSheet.Range("G2:G500").NumberFormat = "dd/mm/yyyy"
For Each Cell In TemplateSheet.Range("G2:G500")
  Cell.Value = Cell.Text
Next Cell

这当然需要代码顶部的 Dim Cell As Range。它不像我希望的那样优雅的解决方案，但我现在只需要完成工作！哈哈。它的工作速度也相当快。

推荐阅读