擅长:python、mysql、java
<p>也许在重写时不使用With和End-With语句会更容易理解。With是这样VBA就不必检查对象(其方法被调用)是否为空。在</p>
<pre><code>Sub excelgraphme()
Dim qtNew As QueryTable
Set qtNew = ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\DRIVE D\graphme\result.txt", Destination:=Range("$A$1"))
'* is equivalent but slightly slower because With statement means VBA won't check each line for qtNew=Nothing
qtNew.TextFilePlatform = 866
qtNew.TextFileStartRow = 1
qtNew.TextFileParseType = xlDelimited
qtNew.TextFileTextQualifier = xlTextQualifierDoubleQuote
qtNew.TextFileConsecutiveDelimiter = False
qtNew.TextFileTabDelimiter = True
qtNew.TextFileSemicolonDelimiter = False
qtNew.TextFileCommaDelimiter = False
qtNew.TextFileSpaceDelimiter = False
qtNew.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
qtNew.TextFileTrailingMinusNumbers = True
qtNew.Refresh BackgroundQuery:=False
End Sub
</code></pre>