|
在VBA中，為了表示字符串，首先我們需要用兩個引號把字符串引起來。例如 "abc"， VBA編譯器把它解釋為字符串abc。而當您需要表示一個單引號 " 的時候，如果只用三個引號 """，VBA的編譯器會無法解析辨認中間的引號是一個正常的字符還是一個特殊字符（如果是特殊字符，編譯器會認為和左右的兩個引號之間有關系）
為了解決這種情況，VBA中使用轉義字符（其他語言中也有這個概念）對特殊字符進行轉義。在 """" 中：第一個和第四個引號高速編譯器中間是字符串，第二個引號是一個轉義字符，表示后面的第三個 " 不是一個特殊字符，而是一個普通的引號！所以"""" 經過VBA編譯器編譯后的輸出是一個普通的雙引號 "
實例代碼：
Private Sub Command0_Click()
Dim xtpf, cxph, fs, d, v As String
Dim str4 As String
xtpf = CurrentProject.Path'當前路徑
cxph = Left(xtpf, 3)
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(cxph)))
v = Hex(d.SerialNumber)
Dim RetVal
str4 = """"
Dim strMDB As String
Shell str4 & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & str4 & " " & str4 & xtpf & "\sjch.mdb" & str4 & " /wrkgrp " & str4 & xtpf & "\sjch.mdg" & str4 & " " & "/User qbc" & " " & "/pwd" & " " & "", 2
End Sub
說明：sjch.mdg是工作組信息文件，其實就是sjch.mdw,只不過改了后綴而已。
編輯：北京信誠IT保姆IT外包部 http:// www.aboverow.cn www.xcit.com.cn |
當前位置：
