Question

我正在编写一个宏来自动化和利用Agilix加速数据处理。我遇到的问题是，当宏如下面的代码所示，用引号括起所有书面信息。当我用它写.txt时这不是问题，但是我现在必须从它生成一个.xml并且引号将它搞砸了。

这是写入.txt

的宏

” Sub DataOutDataIn（REQ As String） '将原始数据发送到记事本然后返回重新格式化 “

'Specify data target location
    Dim myFile As String
    myFile = Application.DefaultFilePath & "\DataForReturn.txt"
'Open file and export raw data
    Open myFile For Output As #1
    Write #1, Range("A10").Value
    Close #1
'Clear data parsing page and extract the reformatted data
    Sheets("Data For Parsing").Select
    Cells.Select
    Selection.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\me\Documents\DataForReturn.txt", Destination:=Range("$A$1"))
        .Name = "DataForReturn_3"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 3
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = """"
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

End Sub “

任何人都可以告诉我它为什么包含引号以及如何解决它？

Answer 1

将Print语句替换为Print

Excel宏，数据写入引号中的文本文件

1 个答案: