Lấy dữ liệu từ file xml bằng VB trong Excel (1 người xem)

  • Thread starter Thread starter atutu
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
A

atutu

Thành viên mới
Tham gia
22/5/13
Bài viết
24
Được thích
4
Dear các bạn.
Hiện tại mình có một ví dụ về file xml như sau:

<?xml version="1.0" encoding="UTF-8"?>
<PersistentObject>
<CUIDESIGN PersistentID="8ae5b13b" ClassName="CUIDESIGN">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
</CUIDESIGN>
<CUIROOT PersistentID="9c682313" ClassName="CUIROOT">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
<DBDATE DataType="8">2015/08/14</DBDATE>
<DBTIME DataType="8">04:35:28</DBTIME>
</CUIROOT>

Mình muốn truy cập đến thẻ "CUIDESIGN" và lấy giá trị "DESIGNNUMBER" và đưa vào 1 cell trong file Excel.
Làm thế nào để truy cập đến thẻ "CUIROOT" và lấy giá trị "DBDATE" và đưa vào 1 cell trong file Excel.
Các bạn giúp mình với.
Cảm ơn rất nhiều.
 
atutu đã viết:
Dear các bạn.
Hiện tại mình có một ví dụ về file xml như sau:

<?xml version="1.0" encoding="UTF-8"?>
<PersistentObject>
<CUIDESIGN PersistentID="8ae5b13b" ClassName="CUIDESIGN">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
</CUIDESIGN>
<CUIROOT PersistentID="9c682313" ClassName="CUIROOT">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
<DBDATE DataType="8">2015/08/14</DBDATE>
<DBTIME DataType="8">04:35:28</DBTIME>
</CUIROOT>

Mình muốn truy cập đến thẻ "CUIDESIGN" và lấy giá trị "DESIGNNUMBER" và đưa vào 1 cell trong file Excel.
Làm thế nào để truy cập đến thẻ "CUIROOT" và lấy giá trị "DBDATE" và đưa vào 1 cell trong file Excel.
Các bạn giúp mình với.
Cảm ơn rất nhiều.
Nhấp chuột vào đây để mở rộng...

bạn đưa file cụ thể lên thì người ta làm dùm bạn
còn bạn nói chung chung như thế thì cứ vào đây
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=read xml file vba
 
Dear bạn,
File cụ thể của ví dụ này.
Thanks bạn.
 

File đính kèm

Những chuỗi màu đỏ đánh dấu là những chuỗi mình cần lấy giá trị
<?xml version="1.0" encoding="UTF-8"?>
<PersistentObject>
<CUIDESIGN PersistentID="8ae5b13b" ClassName="CUIDESIGN">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
</CUIDESIGN>
<CUIROOT PersistentID="9c682313" ClassName="CUIROOT">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
<DBDATE DataType="8">2015/08/14</DBDATE>
<DBTIME DataType="8">04:35:28</DBTIME>
</CUIROOT>

Để đưa vào 2 cell như ảnh đính kèm:

1.jpg

Thanks.
 
atutu đã viết:
Những chuỗi màu đỏ đánh dấu là những chuỗi mình cần lấy giá trị
<?xml version="1.0" encoding="UTF-8"?>
<PersistentObject>
<CUIDESIGN PersistentID="8ae5b13b" ClassName="CUIDESIGN">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
</CUIDESIGN>
<CUIROOT PersistentID="9c682313" ClassName="CUIROOT">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
<DBDATE DataType="8">2015/08/14</DBDATE>
<DBTIME DataType="8">04:35:28</DBTIME>
</CUIROOT>

Để đưa vào 2 cell như ảnh đính kèm:

View attachment 147066

Thanks.
Nhấp chuột vào đây để mở rộng...

Lấy chính xác toàn bộ chuỗi màu đỏ, đúng không?
Tức cell E14 sau khi chạy code sẽ có giá trị là <DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
Và cell E16 sau khi chạy code sẽ có giá trị là <DBDATE DataType="8">2015/08/14</DBDATE>
 
Không , lấy giá trị : ABCDE và : 2015/08/14 ạ. Thanks.
 
atutu đã viết:
Không , lấy giá trị : ABCDE và : 2015/08/14 ạ. Thanks.
Nhấp chuột vào đây để mở rộng...
ngày xửa ngày xưa (hình như là 1996) tui có tự xây dựng cấu trúc "bó mía" để lưu trữ dữ liệu. sau này có thằng em nói là rất giống với XML, tui vẫn dùng đến bây giờ.
bạn dùng thử hàm cùi bắp này xem sao (tui đã thử với dữ liệu của bạn, thấy OK)
Mã: 
Public Function SpecifyXML$(s$, StrXML$)
'Returen: string between strhead and strtail
'-------------------------------------------------
    Dim Pos1&, Pos2&, Pos3&, StrHead$, StrTail$
    Pos1 = InStr(1, s, "<" & StrXML, vbTextCompare)
    Pos2 = InStr(Pos1, s, ">", vbTextCompare)
    StrHead = Mid(s, Pos1, Pos2 - Pos1 + 1)
    StrTail = "</" & StrXML & ">"
    If Pos1 > 0 Then
        Pos3 = InStr(Pos1, s, StrTail, vbTextCompare)
        If Pos3 > 0 Then
            SpecifyXML = Mid(s, Pos1 + Len(StrHead), Pos3 - Pos1 - Len(StrHead))
        End If
    End If
End Function
 

File đính kèm

atutu đã viết:
Không , lấy giá trị : ABCDE và : 2015/08/14 ạ. Thanks.
Nhấp chuột vào đây để mở rộng...

Yêu cầu cái gì phải nói cho rõ ràng. Mãi đến bài thứ 7 người ta mới hiểu cần làm thì thì bạn nên xem lại cách mô tả vấn đề của mình
Giờ chạy thử sub này:
Mã: 
Sub Main()
  Dim fso As Object, oStream As Object
  Dim filePath As String, sTmp As String, sRet As String
  Dim lPos1 As Long, lPos2 As Long
  Dim vFile
  vFile = Application.GetOpenFilename("XML Files, *.xml")
  If TypeName(vFile) = "String" Then
    Set fso = CreateObject("Scripting.FileSystemObject")
    filePath = CStr(vFile)
    Set oStream = fso.OpenTextFile(filePath, 1)
    sTmp = oStream.ReadAll
    oStream.Close
    lPos1 = InStr(1, sTmp, "<DESIGNNUMBER DataType=""8"">")
    If lPos1 Then
      sRet = Mid(sTmp, lPos1 + 27)
      lPos2 = InStr(1, sRet, "<")
      If lPos2 Then
        sRet = Left(sRet, lPos2 - 1)
        Sheets("INPUT").Range("E14").Value = sRet
      End If
    End If
    lPos1 = 0: lPos2 = 0: sRet = Empty
    lPos1 = InStr(1, sTmp, "<DBDATE DataType=""8"">")
    If lPos1 Then
      sRet = Mid(sTmp, lPos1 + 21)
      lPos2 = InStr(1, sRet, "<")
      If lPos2 Then
        sRet = Left(sRet, lPos2 - 1)
        Sheets("INPUT").Range("E16").Value = "'" & sRet
      End If
    End If
  End If
End Sub
 
Cảm ơn bác ndu96081631,
 Sau khi edit lại code, mình up lại code hoàn thiện, file đính kèm: Test2_1.zip .
Nhưng trong code của bác ndu96081631
câu lệnh: sRet = Mid(sTmp, lPos1 + 27) bị phụ thuộc vào độ dài của: lPos1 = InStr(1, sTmp, "<DESIGNNUMBER DataType=""8"">"), phải đến xem có bao nhiêu ký tự. Số 8 (đánh dấu màu đỏ) phải thêm 2 dấu " " . Có cách nào khắc phục được nhược điểm này không bác?
 

File đính kèm

Dear,
Em up lại file xml:

<?xml version="1.0" encoding="UTF-8"?>
<PersistentObject>
<CUIDESIGN PersistentID="8ae5b13b" ClassName="CUIDESIGN">
<DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
<DBDATE DataType="8">2014/08/14</DBDATE>
<DBTIME DataType="8">03:35:28</DBTIME>
</CUIDESIGN>
<CUIROOT PersistentID="9c682313" ClassName="CUIROOT">
<DESIGNNUMBER DataType="8">ABCDEF</DESIGNNUMBER>
<AVGCALCTIME DataType="5">654557</AVGCALCTIME>
<DBDATE DataType="8">2015/08/14</DBDATE>
<DBTIME DataType="8">04:35:28</DBTIME>
</CUIROOT>
</PersistentObject>

Làm thế nào để đưa các thông số mong muốn vào các cell trên file excel được a.?
2.jpg

2.jpg

Thanks.
 

File đính kèm

Dear bác,
Trong đoạn code VB của bác:

lPos1 = 0: lPos2 = 0: sRet = Empty
lPos1 = InStr(1, sTmp, "<DESIGNNUMBER DataType=""8"">")
If lPos1 Then
sRet = Mid(sTmp, lPos1 + 27)
lPos2 = InStr(1, sRet, "<")
If lPos2 Then
sRet = Left(sRet, lPos2 - 1)
Sheets("INPUT").Range("E14").Value = sRet
End If
End If
Số 27 màu đỏ em đánh dấu là phải đếm số ký tự của chuỗi: "<DESIGNNUMBER DataType=""8"">" phải không ạ? Có cách nào không phải đếm số ký tự của chuỗi này không ạ?

Có cách nào insert các data từ file xml vào file excel như trong hình không bác?

2.jpg


Thanks bác.
 

File đính kèm

atutu đã viết:
Dear bác,
Trong đoạn code VB của bác:

lPos1 = 0: lPos2 = 0: sRet = Empty
lPos1 = InStr(1, sTmp, "<DESIGNNUMBER DataType=""8"">")
If lPos1 Then
sRet = Mid(sTmp, lPos1 + 27)
lPos2 = InStr(1, sRet, "<")
If lPos2 Then
sRet = Left(sRet, lPos2 - 1)
Sheets("INPUT").Range("E14").Value = sRet
End If
End If
Số 27 màu đỏ em đánh dấu là phải đếm số ký tự của chuỗi: "<DESIGNNUMBER DataType=""8"">" phải không ạ? Có cách nào không phải đếm số ký tự của chuỗi này không ạ?

Có cách nào insert các data từ file xml vào file excel như trong hình không bác?

View attachment 147085


Thanks bác.
Nhấp chuột vào đây để mở rộng...

Muốn tìm thì cũng phải có "dấu hiệu" gì đó chứ. Các từ khóa như "<DESIGNNUMBER DataType=""8"">" chẳng phải là "dấu hiệu" sao? Nếu không có nó, ta tìm bằng cái gì?
 
bắt chước thầy NDU cũng góp vui tí . hi hi
Mã: 
Public Sub hell()
  Dim fso As Object, oStream As Object
  Dim filePath As String, sTmp As String, sRet As String
  Dim vFile
  vFile = Application.GetOpenFilename("XML Files, *.xml")
  If TypeName(vFile) = "String" Then
    Set fso = CreateObject("Scripting.FileSystemObject")
    filePath = CStr(vFile)
    Set oStream = fso.OpenTextFile(filePath, 1)
    sTmp = oStream.ReadAll
    oStream.Close
    
    With Worksheets("INPUT")
        vFile = getInfo(sTmp, "<CUIDESIGN")
        .[H14].Value = vFile(1): .[H16].Value = vFile(2): .[H18].Value = vFile(3)
        vFile = getInfo(sTmp, "<CUIROOT")
        .[K14].Value = vFile(1): .[K16].Value = vFile(2): .[K18].Value = vFile(3)
    End With
  End If
End Sub

Mã: 
Private Function getInfo(sTmp As String, parentNode As String) As Variant
Dim arr(1 To 3), lPos1 As Long, lPos2 As Long, lStart As Long
lPos1 = InStr(sTmp, parentNode)
If lPos1 > 0 Then
    arr(1) = getNodeVL(sTmp, "<DESIGNNUMBER", lPos1)
    arr(2) = getNodeVL(sTmp, "<DBDATE", lPos1)
    arr(3) = getNodeVL(sTmp, "<DBTIME", lPos1)
End If
getInfo = arr
End Function

Mã: 
Private Function getNodeVL(ByVal sTmp As String, ByVal nodeName As String, _
ByVal lPos As Long) As String
Dim lPos2 As Long, lStart As Long
getNodeVL = ""
lPos = InStr(lPos, sTmp, nodeName) + 1
lStart = InStr(lPos, sTmp, ">") + 1
lPos2 = InStr(lPos, sTmp, "<")
If InStr(lPos, sTmp, "/") > lStart Then getNodeVL = Mid(sTmp, lStart, lPos2 - lStart)
End Function
 
Cảm ơn bác Jack nt, hôm nay em mới thử đoạn code của bác, thấy rất oke và hiệu quả. Thanks bác.
 
Lần chỉnh sửa cuối:
atutu đã viết:
Cảm ơn bác Jack nt, hôm nay em mới thử đoạn code của bác, thấy rất oke và hiệu quả. Thanks bác.
Nhấp chuột vào đây để mở rộng...
tui cũng hơi lạ không thấy bạn ngó ngàng gì đến. tui sử dụng hàm này thường xuyên từ xưa đến giờ. rất vui giúp được bạn.
 
Bạn Batman1 có một đoạn code rất hay, mình đưa lên đây các bạn tham khảo:
Mã: 
 Sub Main() 
Dim filename, xmldoc As Object     
filename = Application.GetOpenFilename("XML Files, *.xml")     
If TypeName(filename) = "String" Then         
Set xmldoc = CreateObject("MSXML2.DOMDocument")         
If xmldoc.Load(filename) Then             
    With Worksheets("INPUT")             
     .Range("H14").Value = xmldoc.SelectSingleNode("//PersistentObject/CUIDESIGN/DESIGNNUMBER").Text             
       .Range("H16").Value = xmldoc.SelectSingleNode("//PersistentObject/CUIDESIGN/DBDATE").Text             
     .Range("H18").Value = xmldoc.SelectSingleNode("//PersistentObject/CUIDESIGN/DBTIME").Text             
     .Range("K14").Value = xmldoc.SelectSingleNode("//PersistentObject/CUIROOT/DESIGNNUMBER").Text             
     .Range("K16").Value = xmldoc.SelectSingleNode("//PersistentObject/CUIROOT/DBDATE").Text            
     .Range("K18").Value = xmldoc.SelectSingleNode("//PersistentObject/CUIROOT/DBTIME").Text             
End With        
 End If         
Set xmldoc = Nothing     
End If 
End Sub
Cảm ơn bạn batnam1.
 
Lần chỉnh sửa cuối:
Dear các bạn,
Mình có một vấn đề như sau, mong được các bạn giúp đỡ, cũng mong nhận được sự giúp đỡ của bạn batnam1.
Mình có file xml như sau:
Mã: 
<?xml  version="1.0" encoding="UTF-8"?>
<PersistentObject>
<CUIDESIGN PersistentID="8ae5b13b" ClassName="CUIDESIGN">
    <DESIGNNUMBER DataType="8">ABCDE</DESIGNNUMBER>
    <AVGCALCTIME DataType="5">654557</AVGCALCTIME>
	<DBDATE DataType="8">2014/08/14</DBDATE>
    <DBTIME DataType="8">03:35:28</DBTIME>
  </CUIDESIGN>
  <CUIROOT PersistentID="9c682313" ClassName="CUIROOT">
    <DESIGNNUMBER DataType="8">ABCDEF</DESIGNNUMBER>
    <AVGCALCTIME DataType="5">654557</AVGCALCTIME>
    <DBDATE DataType="8">2015/08/14</DBDATE>
    <DBTIME DataType="8">04:35:28</DBTIME>
   </CUIROOT>
   <CUIROOT PersistentID="23424323423" ClassName="CUIROOT">
    <DESIGNNUMBER DataType="8">LV</DESIGNNUMBER>
    <AVGCALCTIME DataType="5">4567</AVGCALCTIME>
    <DBDATE DataType="8">2015/06/17</DBDATE>
    <DBTIME DataType="8">03:35:12</DBTIME>
   </CUIROOT>
   <CUIROOT PersistentID="23424234" ClassName="CUIROOT">
    <DESIGNNUMBER DataType="8">HV</DESIGNNUMBER>
    <AVGCALCTIME DataType="5">3443545</AVGCALCTIME>
    <DBDATE DataType="8">2015/06/17</DBDATE>
    <DBTIME DataType="8">03:35:12</DBTIME>
   </CUIROOT>
   <CUIROOT PersistentID="23424324256" ClassName="CUIROOT">
    <DESIGNNUMBER DataType="8">BDADSAD</DESIGNNUMBER>
    <AVGCALCTIME DataType="5">768454</AVGCALCTIME>
    <DBDATE DataType="8">2015/05/17</DBDATE>
    <DBTIME DataType="8">03:37:12</DBTIME>
   </CUIROOT>
 </PersistentObject>

1) Vậy làm thế nào để điền các giá trị của thẻ trong file xml vào trong file excel như trong hình, mình không biết làm thế nào để truy cập vào các thẻ "CUIROOT", vì trong file xml có rất nhiều thẻ "CUIROOT".
View attachment 147654
2) Làm thế nào để đếm số lần của thẻ "CUIROOT" xuất hiện.
Thanks các bạn.
 

File đính kèm

người mà bạn nhắc tên đó , tức batman1 . nếu như tôi đoán không lầm thì đó là bậc thái sơn bắc đẩu của võ lâm GPE này đấy .
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ (6 người xem)
2
Trả lời
22
Đọc
419
nguyendang95
N
G
Xin Code xóa Module.
Trả lời
7
Đọc
199
VetMini
V
S
Mở 2 cửa sổ riêng biệt (1 người xem)
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
133
lamvu0677
L
N
Khắc phục lỗi "The picture is too large and will be truncated" (2 người xem)
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (1 người xem)
    • Thích
Trả lời
0
Đọc
819
GPE-Trợ Lý
GPE-Trợ Lý
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
108
khkkh
K
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
780
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
208
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (1 người xem)
    • Thích
Trả lời
0
Đọc
132
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
116
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
14
Đọc
210
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
704
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục (1 người xem)
Trả lời
3
Đọc
217
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
213
Gà Công Nghệ
Gà Công Nghệ
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
592
Phạm Trường 80
P
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom