Question

我正在尝试通过VBA将SQL文件导入excel，以便将SQL代码作为一个字符串返回，但是当我将SQL作为字符串导入时，我在每个字符之间得到小方块（回车？） - 不知道为什么！以前在其他文件中使用不同的SQL，所以我不确定我做错了什么。

component.userForm.controls.firstName.setValue('bob');

SQL代码如下所示：

Function ImportSQLText(FileExt, FileSQLName)
'//Needs Microsoft Scripting Runtime Ref
'//and microsoft active x data objects 2.8

Dim ReadText As String, newLine As String
Dim fso As FileSystemObject: Set fso = New FileSystemObject

Set txtStream = fso.OpenTextFile(FileExt & fileName, ForReading, False)

ReadText = " "
Do While Not txtStream.AtEndOfStream
    newLine = txtStream.ReadLine
    If InStr(newLine, "[input-sDte]") > 0 Then

        ReadText = ReadText & Replace(newLine, "[input-sDte]", sDte) & vbCrLf
    ElseIf InStr(newLine, "[input-eDte]") > 0 Then
        ReadText = ReadText & Replace(newLine, "[input-eDte]", eDte) & vbCrLf
    Else
         ReadText = ReadText & newLine & vbCrLf
    End If

Loop
txtStream.Close

ImportSQLText = ReadText

End Function

任何输入都会非常感激 - 谷歌搜索这次没有帮助我。

Answer 1

你几乎肯定有一个unicode文件。 FSO的There is an optional fourth parameter on the OpenTextfile方法：

 Const TriStateTrue = -1
 Set txtStream = fso.OpenTextFile(FileExt & fileName, ForReading, False, TriStateTrue)

只需更换这两行，就可以解决问题。

通过VBA导入sql文件时字符串中的奇怪字符

1 个答案: