|
 , Hit : 1267 |
|
|
||||
|
|||||
|
|
|
안녕하세요. 각종 전문가들중 프로그램 전문가가 가장 많은것 같아 문의드립니다. VBA에서 INI파일을 읽는 코드가 있습니다. 인터넷에 돌고 도는 흔한 코드이며, 특별히 문제 없어서 몇년동안 잘 사용하고 있는데, 오늘 안됩니다. 아래 코드중 굵은 부분에서 문제가 발생한것 같습니다. 아, 저는 엑셀VBA와 AutoCAD VBA 모두 사용하고 있습니다. 안되는 것은 AutoCAD VBA에서 안되고, 엑셀에서는 잘 작동됩니다. AutoCAD는 2010, 2018이며, Windows 10, 64bit입니다. 또 데스크탑, 노트북 모두 동일합니다. 제가 사용했던 코드는 다음과 같습니다. Public Declare Function WritePrivateProfileString _ Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As Long Public 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 Public Function ProfileGetItem(IniFile As String, Section As String, KeyName As String) As String Dim IngRet As Long Dim strValue As String * 1024 IniRet = GetPrivateProfileString(Section, KeyName, "", strValue, 1024, IniFile) ProfileGetItem = Left(strValue, InStr(strValue, Chr(0)) - 1) End Function |
|
||||||||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
