宏在记事本

Question

保存Excel列

我在Excel范围如下：

Range("S15").Select Range(Selection, Selection.End(xlDown)).Select，我不得不在记事本中自动保存该范围内的宏。

我已经验证码：

Option Explicit 

Sub Step_6_test() 

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 & "\auth.csv" 

Open FilePath For Output As #2 

For i = 1 To LastRow 

    For j = 1 To LastCol 
     If j = LastCol Then 
      CellData = CellData + Trim(ActiveCell(i, j).Value) 
     Else 
      CellData = CellData + Trim(ActiveCell(i, j).Value) + "," 
     End If 
    Next j 

    Write #2, CellData 
    CellData = "" 
Next i 

Close #2 
MsgBox ("Done") 

End Sub 

但是这个代码是保存它在Excel中的文本文件，但我想自动保存我在记事本的范围。 如何更改用于在记事本中保存范围的代码？

Answer 1

对@Limak评论的后续处理，请将文件保存为.txt。

此外，你必须CellData = CellData + Trim(ActiveCell(i, j).Value)，但你是不是在你的循环推进ActiveCell（诺雷得，你需要使用ActiveCell）。相反，你可以使用CellData = CellData + Trim(Cells(i, j).Value)。

全码

Option Explicit 

Sub Step_6_test() 

Dim FilePath As String 
Dim CellData As String 
Dim LastCol As Long 
Dim LastRow As Long 
Dim i As Long, j As Long 

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

CellData = "" 
FilePath = Application.DefaultFilePath & "\auth.txt" 

Open FilePath For Output As #2 

For i = 1 To LastRow 

    For j = 1 To LastCol 
     If j = LastCol Then 
      CellData = CellData + Trim(Cells(i, j).Value) 
     Else 
      CellData = CellData + Trim(Cells(i, j).Value) + "," 
     End If 
    Next j 

    Write #2, CellData 
    CellData = "" 
Next i 

Close #2 
MsgBox ("Done") 

End Sub