Question

我正在尝试编写一个宏作为excel文件保存到.txt文件，但是与excel文件具有相同的原始文件名，并且与excel文件的路径相同。如果我录制一个宏，它让我选择路径和文件名，当我再次运行宏时，它选择相同的路径和相同的文件名。

有人可以帮助我。我需要一个可以做到这一点的简单宏。这是我记录的那个，但是我无法弄清楚如何编辑它以使其保存为与原始excel文件中相同的文件名，并且与原始excel文件保存在同一路径中。

  Sub saveastxt()
'
' saveastxt Macro
'

'
    ChDir "C:\Users\mcupp\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\mcupp\Desktop\Test Macros.txt", _
        FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

Answer 1

下面的代码适用于任何文件扩展名，并将工作簿保存为文本文件。

final DatePickerDialog datePickerDialog = new DatePickerDialog(getActivity(), R.style.MyCalanderTheme);

Answer 2

像这样（未经测试）

Sub saveastxt()

    With ActiveWorkbook
        .SaveAs Filename:= .Path & "\" & .Name & ".txt", _
                FileFormat:=xlText, CreateBackup:=False
        .Close
    End With

End Sub

我没有从文件名中删除“.xlsx”，只是附加了“.txt”，所以你可能想修复它......

宏从Excel保存到.txt文件，文件名与原始文件位置相同

2 个答案: