M的部落格

------------------------------[VBA程式碼]---------------------------------

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

'找尋目前檔案路徑

Dim FullPath As Object

'使用VBA建立一文字檔

Private Sub CommandButton2_Click()

http://vb.ncis.com.tw/LMVB2.0/exp/exp.html

巨集指令