请问使用VBA如何读取INI文件内容，并写入到EXCEL中，谢谢

heghui

大家好：
有如下格式的INI文件，需要使用VBA读取里面的资料，并写入到EXCEL中：


[user1]
bindlist=职员
depict=管理部

[user2]
bindlist=职员
depict=管理部

[user3]             //user后面的数字一直到三百多
bindlist=职员
depict=管理部


使用如下代码可以读取单个的[user]并写入到EXCEL中，请问如何才能将INI文件中的所有 user[1-n]全部读取，并依次写入到excel中，谢谢

[code=vb]Option Explicit

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
Private 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 Function ReadFromIni(ByVal IniFile As String, ByVal Section As String, ByVal Key As String, ByVal DefaultValue As String) As String
Dim strRtn As String
strRtn = Space(256)
Dim lngRtn As Long
lngRtn = GetPrivateProfileString(Section, Key, DefaultValue, strRtn, 255, IniFile)
If lngRtn > 0 Then
strRtn = Trim(strRtn)
ReadFromIni = Mid(strRtn, 1, Len(strRtn) - 1)
Else
ReadFromIni = DefaultValue
End If
End Function



Sub Main()
Dim strIniFile As String
strIniFile = ActiveWorkbook.Path & "\user.ini"

Dim strSection As String
strSection = "user1"

Dim strDepict As String
strDepict = "depict"

Dim strName As String
strName = "bindlist"


Range("a2") = ReadFromIni(strIniFile, strSection, strUser, "")
Range("b2") = ReadFromIni(strIniFile, strSection, strName, "")
End sub[/code]

gufengaoyue

1. Sub GetTxtFromIni()
   
2. Dim fs, F, a$, Fp$
   
3. With Application.FileDialog(msoFileDialogFilePicker)
   
4.     If .Show <> -1 Then Exit Sub
   
5.     Fp = .SelectedItems(1)
   
6. End With
   
7. 
   
8.         Set fs = CreateObject("Scripting.FileSystemObject")
   
9.         Set F = fs.OpenTextFile(Fp, 1)
   
10.         a = F.ReadAll
    
11.         
    
12. Dim regEx, Matches, Match, xrr(1 To 4 ^ 8, 1 To 3), x%, i%
    
13. [a1:c1] = Array("User", "Bindlist", "Depict")
    
14. brr = Array("\[user\d{1,}\]", "bindlist=.*", "depict=.*")
    
15. For i = 0 To 2
    
16. Set regEx = CreateObject("VBSCRIPT.REGEXP")
    
17.     With regEx
    
18.         .Global = True      
    
19.         .Pattern = brr(i)
    
20.         Set Matches = .Execute(a)
    
21.     End With
    
22. x = 0
    
23.     For Each Match In Matches
    
24.         x = x + 1
    
25.         xrr(x, i + 1) = Match
    
26.     Next
    
27. Next
    
28. Set regEx = Nothing
    
29. [a2].Resize(x, 3) = xrr
    
30. End Sub
    

复制代码

422904z

Option Explicit

Sub ReadINI()
    Dim sT As String
    Dim f As Integer, i As Integer
    Dim v As Variant

    f = FreeFile
    i = 1
    Open ThisWorkbook.Path & "\tt.ini" For Input As #f
    Do While Not EOF(f)
        Line Input #f, sT
        If sT <> "" Then
            If Left(sT, 1) = "[" Then
                Cells(i, 1) = sT
            Else
                v = Split(sT, "=")
                Cells(i, 2) = v(0)
                Cells(i, 3) = v(1)
            End If
            i = i + 1
        End If
    Loop
    Close #f
End Sub

heghui

gufengaoyue 发表于 2013-6-26 16:21

谢谢，经测试运行代码，可以正确读取到INI内容，但是我需要的格式是在user1在excel中显示如下格式：
是a1 显示user1栏位下的depict,b1显示bindlist
以此类推
另外 ，代码好复杂哦，看不懂，能不能注释下，因为user1下的栏位以后可能还会增加，看明白懂了，后面才可以修改
谢谢啦

hnwxm

你自己的方法就是好方法，是专门读写配置文件的API。

heghui

hnwxm 发表于 2013-6-27 10:25
你自己的方法就是好方法，是专门读写配置文件的API。

是可以读取，但是不知道将读取的格式按照需要的格式定入到EXCEL，请指教，谢谢

hnwxm

格式你自己是知道的，Excel的单元格你可以随意写，有什么难的。

heghui

hnwxm 发表于 2013-6-27 10:31
格式你自己是知道的，Excel的单元格你可以随意写，有什么难的。

是需要用VBA实现，这不懂呀

Moneky

看看这个例子对你是否有所帮助。

heghui

Moneky 发表于 2013-6-27 11:02
看看这个例子对你是否有所帮助。

谢谢，我先学习下