excel - VBA - 将范围的内容保存到文件中

Question

我打算将一系列单元格下载到可下载的文本文件中。我需要一段 VBA 代码如何做到这一点

我有一个名为“GPX”的工作表。在这张表中，有可用的地理信息，我想以文本文件的形式下载。但是我使用的代码确实格式化了文本。但我不想要任何格式。

A1: NAME OF GPX
A2: <gpx><trk><trkseg>
A3: <trkpt lat="49.927924" lon="8.475697"></trkpt>
A4: <trkpt lat="49.92792" lon="8.475716"></trkpt>
A5: </trkseg></trk></gpx>

我已经尝试过了，但它确实在行中添加了“”......

Dim myCSVFileName As String
Dim myWB As Workbook
Dim tempWB As Workbook
Dim rngToSave As Range

Application.DisplayAlerts = False
On Error GoTo err

Set myWB = ThisWorkbook
myCSVFileName = "meineroute.gpx"
mx = Sheets("GPX").Cells(Rows.count, 1).End(xlUp).Rows.Row
Set rngToSave = Sheets("GPX").Range("A1:A" & mx)
rngToSave.Copy

Set tempWB = Application.Workbooks.Add(1)
With tempWB
    .Sheets(1).Range("A1").PasteSpecial xlPasteValues
    .SaveAs Filename:=myCSVFileName, FileFormat:=xlText, CreateBackup:=False
    .Close
End With

结果看起来像这样。

"<trkpt lat=""50.118418"" lon=""8.961555""></trkpt>"
"<trkpt lat=""50.118346"" lon=""8.961679""></trkpt>"
"<trkpt lat=""50.118263"" lon=""8.961781""></trkpt>"

但它必须...

<trkpt lat="50.118418" lon="8.961555"></trkpt>
<trkpt lat="50.118346" lon="8.961679"></trkpt>
<trkpt lat="50.118263" lon="8.961781"></trkpt>

标签： excelvba