主页 / computer / 问题 / 1439429
Accepted
Paul Gibson
Asked: 2019-05-22 07:46:09 +0800 CST

导出文本文件但继续编辑 xlsx 文件

  • 772

我使用 excel 生成文本文件，然后将这些文件解析为数据库的输入。当我必须将 xlsx 文件另存为文本文件并关闭 excel 时，我总是很恼火，因为现在我正在 excel 中编辑文本文件。有没有一种方法我只是看不到生成文本文件但在 excel 中保持 xlsx 文件打开？

microsoft-excel

1 个回答

  1. Best Answer

    为此，您需要一个 VBA 宏，它可能如下所示：

    Sub WriteTextFile()
  Dim FilePath As String
  Dim CellData As String
  Dim LastCol As Long
  Dim LastRow As Long

  LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
  LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
  CellData = ""

  FilePath = Application.DefaultFilePath & "\euth.csv"

  Open FilePath For Output As #2

  For i = 1 To LastRow
    For j = 1 To LastCol

      If j = LastCol Then
        CellData = CellData + TrimtActiveCell(i, j).Value)
      Else
        CellData = CellData + TrimtActiveCell(i, j).Value) + ","
      End If

      Next j

      Write #2, CellData
      CellData = ""
    Next i

    Close #2

    MsgBox ("Done")
End Sub

    您可以根据需要修改子例程，可以添加“euth.csv”作为参数或提示输入它。如果电子表格只有一列，则可以大大简化此代码。

    有关上面使用的命令的解释，请参阅文章 Writing to text files in Excel VBA /

    • 0

相关问题