Lấy dữ liệu của file win trong C:\Windows

[lulyen]

Các bác giúp em đoạn Code lấy toàn bộ dữ liệu trong file C:\Windows\win (file Configuration Setings) vào Excel, em xin cảm ơn!

 

[ndu96081631]

Các bác giúp em đoạn Code lấy toàn bộ dữ liệu trong file C:\Windows\win (file Configuration Setings) vào Excel, em xin cảm ơn!

File win là file gì? Là win.ini đấy à?
Nếu đúng là thế, cứ dùng bất cứ code nào đọc được file text là xơi thôi (chẳng hạn như dùng FileSystemObject)

 

[vu_tuan_manh_linh]

Bạn tìm code đọc file txt sẽ biết cách làm

 

[be_09]

Tôi thử chạy code thì nó thông báo thế này (tạm hiểu là không dùng code để lấy dữ liệu được):

Microsoft Excel has stopped working.
Hang on windows reports the prolem to Microsoft.
A problem caused the program to stop working correctly.
Windows will close the program and notify you it a solution is available.

 

[excel_lv1.5]

Bạn nhận file!!!

 

[sealand]

Bạn thử xem sao (Tôi chạy thay được):

Sub GetWinINI()
    With Sheet2.QueryTables.Add(Connection:="TEXT;C:\Windows\win.ini", Destination:=Range("$A$1"))
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
       .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileColumnDataTypes = Array(1)
       .Refresh BackgroundQuery:=False
    End With
End Sub

 

[befaint]

Tôi thử chạy code thì nó thông báo thế này (tạm hiểu là không dùng code để lấy dữ liệu được):

Bình thường mà anh.
Anh thử file này có bị sao không ạ.

 

[Kiều Mạnh]

bài #6 và bài #7 chạy tốt

Mà không biết lấy thông tin đó làm chi nữa ta

 

[ndu96081631]

Tôi thử chạy code thì nó thông báo thế này (tạm hiểu là không dùng code để lấy dữ liệu được):

Microsoft Excel has stopped working.
Hang on windows reports the prolem to Microsoft.
A problem caused the program to stop working correctly.
Windows will close the program and notify you it a solution is available.

View attachment 188502

Code thế nào mà không được vậy anh?
Em làm đơn giản vầy thôi

Sub Test()
  With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile("C:\Windows\win.ini")
      MsgBox .ReadAll
      .Close
    End With
  End With
End Sub

 

[ThangCuAnh]

Lỗi do quyền của current user có quyền đọc vào các thư mục của Quýnh Đồ hay không ?!

 

[lulyen]

Bạn nhận file!!!

Cảm ơn bạn, Code chạy đúng như mình mong muốn, bạn có thể giúp thêm mình vấn đề này nữa được không: đó là mình chỉ cần lấy mỗi thông tin sau dấu "=" của dòng CMCDLLNAME32=mapi32.dll mà không cần lấy các thông tin bên trên và bên dưới của dòng đó, xin cảm ơn!

 

[excel_lv1.5]

Cảm ơn bạn, Code chạy đúng như mình mong muốn, bạn có thể giúp thêm mình vấn đề này nữa được không: đó là mình chỉ cần lấy mỗi thông tin sau dấu "=" của dòng CMCDLLNAME32=mapi32.dll mà không cần lấy các thông tin bên trên và bên dưới của dòng đó, xin cảm ơn!

Chưa hiểu ý bạn lắm, bạn nhận lại file xem!!!

 

[ThangCuAnh]

Bạn có thể dùng hàm API GetProfileString:
https://msdn.microsoft.com/en-us/library/windows/desktop/ms724366(v=vs.85).aspx
lpAppName = "Mail"
lpKeyName = "CMCDLLNAME32"
lpDefault = ""

Khai báo trong VBA:

#If VBA7 Then
    Declare PtrSafe Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
#Else
    Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
#End If

TQN

 

[lulyen]

Bạn có thể dùng hàm API GetProfileString:
https://msdn.microsoft.com/en-us/library/windows/desktop/ms724366(v=vs.85).aspx
lpAppName = "Mail"
lpKeyName = "CMCDLLNAME32"
lpDefault = ""

Khai báo trong VBA:

#If VBA7 Then
    Declare PtrSafe Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
#Else
    Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
#End If

TQN

bạn cho mình xin file mẫu ví dụ

 

[VetMini]

Cái này liên quan gì đến CSDL?