Trích xuất XML bằng VBA

Liên hệ QC
B

boysanhdieu

Thành viên mới
Tham gia
13/10/08
Bài viết
25
Được thích
4
Các bác ơi
Mình muốn trich xuất dữ liệu của TK GTGT định dạng XML ra excel theo mẫu
Nhưng làm cách nào để khi mở hàng loạt file xml thì khi xuất ra excel nó theo thứ tự 1 dòng cho 1 file xml
Mình không học VBA nên chỉ mò viết được tới đây, các bac help mình với
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 Sheets("Trich xuat")
     .Range("A2").Value = xmldoc.SelectSingleNode("//NNT/mst").Text
     .Range("B2").Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
     .Range("C2").Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
     .Range("D2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
     .Range("E2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
     .Range("F2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
     .Range("G2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
     .Range("H2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                         End With
 End If
Set xmldoc = Nothing
End If
End Sub
 

File đính kèm

  • HCM-0304032878000-01_GTGT-M012020-L00.zip
    3.7 KB · Đọc: 48
  • Trich xuat du lieu TKGTGT.xls
    43.5 KB · Đọc: 49
Sắp xếp theo thời gian sắp xếp theo bầu chọn
boysanhdieu đã viết:
Các bác ơi
Mình muốn trich xuất dữ liệu của TK GTGT định dạng XML ra excel theo mẫu
Nhưng làm cách nào để khi mở hàng loạt file xml thì khi xuất ra excel nó theo thứ tự 1 dòng cho 1 file xml
Mình không học VBA nên chỉ mò viết được tới đây, các bac help mình với
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 Sheets("Trich xuat")
     .Range("A2").Value = xmldoc.SelectSingleNode("//NNT/mst").Text
     .Range("B2").Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
     .Range("C2").Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
     .Range("D2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
     .Range("E2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
     .Range("F2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
     .Range("G2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
     .Range("H2").Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                         End With
End If
Set xmldoc = Nothing
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Sửa code lại thế này xem.
Mã: 
Sub Main()
Dim filename, xmldoc As Object, i%, k%
filename = Application.GetOpenFilename("XML Files, *.xml", , , , True)
k = Sheet2.Range("A10000").End(xlUp).Row + 1
    If IsArray(filename) Then
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        For i = LBound(filename) To UBound(filename)
            If xmldoc.Load(filename(i)) Then
                With Sheets("Trich xuat")
                    .Range("A" & k).Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                    .Range("B" & k).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                    .Range("C" & k).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                    .Range("D" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                    .Range("E" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                    .Range("F" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                    .Range("G" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                    .Range("H" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                End With
                k = k + 1
             End If
        Next i
        Set xmldoc = Nothing
    ElseIf TypeName(filename) = "String" Then
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        If xmldoc.Load(filename) Then
            With Sheets("Trich xuat")
                .Range("A" & k).Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                .Range("B" & k).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                .Range("C" & k).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                .Range("D" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                .Range("E" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                .Range("F" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                .Range("G" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                .Range("H" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
            End With
         End If
        Set xmldoc = Nothing
    End If
End Sub
 
Upvote 0
giaiphap đã viết:
Sửa code lại thế này xem.
Mã: 
Sub Main()
Dim filename, xmldoc As Object, i%, k%
filename = Application.GetOpenFilename("XML Files, *.xml", , , , True)
k = Sheet2.Range("A10000").End(xlUp).Row + 1
    If IsArray(filename) Then
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        For i = LBound(filename) To UBound(filename)
            If xmldoc.Load(filename(i)) Then
                With Sheets("Trich xuat")
                    .Range("A" & k).Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                    .Range("B" & k).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                    .Range("C" & k).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                    .Range("D" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                    .Range("E" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                    .Range("F" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                    .Range("G" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                    .Range("H" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                End With
                k = k + 1
             End If
        Next i
        Set xmldoc = Nothing
    ElseIf TypeName(filename) = "String" Then
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        If xmldoc.Load(filename) Then
            With Sheets("Trich xuat")
                .Range("A" & k).Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                .Range("B" & k).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                .Range("C" & k).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                .Range("D" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                .Range("E" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                .Range("F" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                .Range("G" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                .Range("H" & k).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
            End With
         End If
        Set xmldoc = Nothing
    End If
End Sub
Nhấp chuột vào đây để mở rộng...
----------------------

Code này khi sửa node chắc nhọc lắm đây.

Chắc phải thêm đoạn sau để xóa bớt:

If Not IsArray(filename) Then filename = Array(filename)

If LCase(filename(i)) Like "*.xml" Then
'''''Load
End If
 
Upvote 0
HeSanbi đã viết:
----------------------

Code này khi sửa node chắc nhọc lắm đây.

Chắc phải thêm đoạn sau để xóa bớt:

If Not IsArray(filename) Then filename = Array(filename)

If LCase(filename(i)) Like "*.xml" Then
'''''Load
End If
Nhấp chuột vào đây để mở rộng...
Bạn ơi, bạn sửa dùm mình, mình không có học VBA nên không biết sửa vô ntn
 
Upvote 0
boysanhdieu đã viết:
Bạn ơi, bạn sửa dùm mình, mình không có học VBA nên không biết sửa vô ntn
Nhấp chuột vào đây để mở rộng...
PHP: 
Sub Main()
Dim filename, xmldoc As Object, i%, k%
filename = Application.GetOpenFilename("XML Files, *.xml", , , , True)
k = Sheet2.Range("A10000").End(xlUp).Row + 1
    If Not IsArray(filename) Then filename = Array(filename)
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        For i = LBound(filename) To UBound(filename)
            If LCase(filename(i)) Like "*.xml" Then
                If xmldoc.Load(filename(i)) Then
                With Sheets("Trich xuat").Range("A" & k)
                    .Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                    .Offset(0, 1).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                    .Offset(0, 2).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                    .Offset(0, 3).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                    .Offset(0, 4).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                    .Offset(0, 5).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                    .Offset(0, 6).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                    .Offset(0, 7).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                End With
                k = k + 1
                End If
             End If
        Next i
        Set xmldoc = Nothing
End Sub
 
Upvote 0
HeSanbi đã viết:
PHP: 
Sub Main()
Dim filename, xmldoc As Object, i%, k%
filename = Application.GetOpenFilename("XML Files, *.xml", , , , True)
k = Sheet2.Range("A10000").End(xlUp).Row + 1
    If Not IsArray(filename) Then filename = Array(filename)
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        For i = LBound(filename) To UBound(filename)
            If LCase(filename(i)) Like "*.xml" Then
                If xmldoc.Load(filename(i)) Then
                With Sheets("Trich xuat").Range("A" & k)
                    .Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                    .Offset(0, 1).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                    .Offset(0, 2).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                    .Offset(0, 3).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                    .Offset(0, 4).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                    .Offset(0, 5).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                    .Offset(0, 6).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                    .Offset(0, 7).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                End With
                k = k + 1
                End If
             End If
        Next i
        Set xmldoc = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
thanks bạn nhiều, công thức gọn hẳn
 
Upvote 0
HeSanbi đã viết:
PHP: 
Sub Main()
Dim filename, xmldoc As Object, i%, k%
filename = Application.GetOpenFilename("XML Files, *.xml", , , , True)
k = Sheet2.Range("A10000").End(xlUp).Row + 1
    If Not IsArray(filename) Then filename = Array(filename)
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        For i = LBound(filename) To UBound(filename)
            If LCase(filename(i)) Like "*.xml" Then
                If xmldoc.Load(filename(i)) Then
                With Sheets("Trich xuat").Range("A" & k)
                    .Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                    .Offset(0, 1).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                    .Offset(0, 2).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                    .Offset(0, 3).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                    .Offset(0, 4).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                    .Offset(0, 5).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                    .Offset(0, 6).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                    .Offset(0, 7).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                End With
                k = k + 1
                End If
             End If
        Next i
        Set xmldoc = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn ơi, nếu như trong file xml có 1 vài chỉ tiêu không có, có cách nào viết cho code nếu không có chỉ tiêu đó thì bỏ trống, tiếp tục chạy các dòng sau không.
 
Upvote 0
boysanhdieu đã viết:
Bạn ơi, nếu như trong file xml có 1 vài chỉ tiêu không có, có cách nào viết cho code nếu không có chỉ tiêu đó thì bỏ trống, tiếp tục chạy các dòng sau không.
Nhấp chuột vào đây để mở rộng...
Đặt đoạn sau vào trên cùng của thủ tục:
On Error Resume Next
 
Upvote 0
boysanhdieu đã viết:
Thank bạn, mình làm được rồi
Nhấp chuột vào đây để mở rộng...
Bạn ơi cho mùnh hỏi thêm vụ này nữa nhé
Giống vd nêu trên, nếu file nguồn có nhiều chỉ tiêu "ct40" thì làm sao để lấy ra hết. Mỗi ct40 sẽ ra 1 cột hoặc gom chung lại.
Bạn giúp mình với
Bài đã được tự động gộp:

HeSanbi đã viết:
Đặt đoạn sau vào trên cùng của thủ tục:
On Error Resume Next
Nhấp chuột vào đây để mở rộng...
Bạn ơi cho mùnh hỏi thêm vụ này nữa nhé
Giống vd nêu trên, nếu file nguồn có nhiều chỉ tiêu "ct40" thì làm sao để lấy ra hết. Mỗi ct40 sẽ ra 1 cột hoặc gom chung lại.
Bạn giúp mình với
 
Upvote 0
boysanhdieu đã viết:
Bạn ơi cho mùnh hỏi thêm vụ này nữa nhé
Giống vd nêu trên, nếu file nguồn có nhiều chỉ tiêu "ct40" thì làm sao để lấy ra hết. Mỗi ct40 sẽ ra 1 cột hoặc gom chung lại.
Bạn giúp mình với
Bài đã được tự động gộp:


Bạn ơi cho mùnh hỏi thêm vụ này nữa nhé
Giống vd nêu trên, nếu file nguồn có nhiều chỉ tiêu "ct40" thì làm sao để lấy ra hết. Mỗi ct40 sẽ ra 1 cột hoặc gom chung lại.
Bạn giúp mình với
Nhấp chuột vào đây để mở rộng...
Mình cũng quan tâm cái này nên mình viết thử theo code của bài #7, bạn kiểm tra kết quả nhé:
Rich (BB code): 
Sub zaq()               
Dim filename, xmldoc As Object, I%, k%
On Error Resume Next
filename = Application.GetOpenFilename("XML Files, *.xml", , , , True)
k = Sheet3.Range("A10000").End(xlUp).Row + 1
    If Not IsArray(filename) Then filename = Array(filename)
        Set xmldoc = CreateObject("MSXML2.DOMDocument")
        For I = LBound(filename) To UBound(filename)
            If LCase(filename(I)) Like "*.xml" Then
                If xmldoc.Load(filename(I)) Then
                'With Sheets("Trich xuat").Range("A" & k)
                With Sheet3.Range("A" & k)
                    .Value = xmldoc.SelectSingleNode("//NNT/mst").Text
                    .Offset(0, 1).Value = xmldoc.SelectSingleNode("//NNT/tenNNT").Text
                    .Offset(0, 2).Value = xmldoc.SelectSingleNode("//KyKKhaiThue/kyKKhai").Text
                    .Offset(0, 3).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23").Text
                    .Offset(0, 4).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24").Text
                    .Offset(0, 5).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34").Text
                    .Offset(0, 6).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35").Text
                    .Offset(0, 7).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40").Text
                    .Offset(0, 8).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40a").Text
                    .Offset(0, 9).Value = xmldoc.SelectSingleNode("//CTieuTKhaiChinh/ct40b").Text                 
                    
                End With
                k = k + 1
                End If
             End If
        Next I
        Set xmldoc = Nothing
End Sub
2 dòng màu đỏ là mình mới thêm.
Các chỉ tiêu tương tự nếu bạn muốn lấy thì bạn thêm tên các cột tương ứng theo danh sách sau nhé:
Mã: 
 /CKyDTu/Signature/KeyInfo/KeyValue/RSAKeyValue/Exponent
 /CKyDTu/Signature/KeyInfo/KeyValue/RSAKeyValue/Modulus
 /CKyDTu/Signature/KeyInfo/X509Data/X509Certificate
 /CKyDTu/Signature/KeyInfo/X509Data/X509SubjectName
 /CKyDTu/Signature/SignatureValue
 /CKyDTu/Signature/SignedInfo/CanonicalizationMethod/@Algorithm
 /CKyDTu/Signature/SignedInfo/Reference/@URI
 /CKyDTu/Signature/SignedInfo/Reference/DigestMethod/@Algorithm
 /CKyDTu/Signature/SignedInfo/Reference/DigestValue
 /CKyDTu/Signature/SignedInfo/Reference/Transforms/Transform/@Algorithm
 /CKyDTu/Signature/SignedInfo/SignatureMethod/@Algorithm
 /HSoKhaiThue/@id
 /HSoKhaiThue/CTieuTKhaiChinh/ct21
 /HSoKhaiThue/CTieuTKhaiChinh/ct22
 /HSoKhaiThue/CTieuTKhaiChinh/ct25
 /HSoKhaiThue/CTieuTKhaiChinh/ct26
 /HSoKhaiThue/CTieuTKhaiChinh/ct29
 /HSoKhaiThue/CTieuTKhaiChinh/ct36
 /HSoKhaiThue/CTieuTKhaiChinh/ct37
 /HSoKhaiThue/CTieuTKhaiChinh/ct38
 /HSoKhaiThue/CTieuTKhaiChinh/ct39
 /HSoKhaiThue/CTieuTKhaiChinh/ct40
 /HSoKhaiThue/CTieuTKhaiChinh/ct40a
 /HSoKhaiThue/CTieuTKhaiChinh/ct40b
 /HSoKhaiThue/CTieuTKhaiChinh/ct41
 /HSoKhaiThue/CTieuTKhaiChinh/ct42
 /HSoKhaiThue/CTieuTKhaiChinh/ct43
 /HSoKhaiThue/CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct23
 /HSoKhaiThue/CTieuTKhaiChinh/GiaTriVaThueGTGTHHDVMuaVao/ct24
 /HSoKhaiThue/CTieuTKhaiChinh/HHDVBRaChiuThueGTGT/ct27
 /HSoKhaiThue/CTieuTKhaiChinh/HHDVBRaChiuThueGTGT/ct28
 /HSoKhaiThue/CTieuTKhaiChinh/HHDVBRaChiuTSuat10/ct32
 /HSoKhaiThue/CTieuTKhaiChinh/HHDVBRaChiuTSuat10/ct33
 /HSoKhaiThue/CTieuTKhaiChinh/HHDVBRaChiuTSuat5/ct30
 /HSoKhaiThue/CTieuTKhaiChinh/HHDVBRaChiuTSuat5/ct31
 /HSoKhaiThue/CTieuTKhaiChinh/HHDVBRaKhongTinhThue/ct32a
 /HSoKhaiThue/CTieuTKhaiChinh/tieuMucHachToan
 /HSoKhaiThue/CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct34
 /HSoKhaiThue/CTieuTKhaiChinh/TongDThuVaThueGTGTHHDVBRa/ct35
 /HSoKhaiThue/PLuc
 /HSoKhaiThue/TTinChung/TTinDVu/maDVu
 /HSoKhaiThue/TTinChung/TTinDVu/pbanDVu
 /HSoKhaiThue/TTinChung/TTinDVu/tenDVu
 /HSoKhaiThue/TTinChung/TTinDVu/ttinNhaCCapDVu
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/dchiNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/dthoaiNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/emailNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/faxNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/maHuyenNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/maTinhNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/mst
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/phuongXa
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/tenHuyenNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/tenNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/NNT/tenTinhNNT
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/GiaHan/lyDoGiaHan
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/GiaHan/maLyDoGiaHan
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/KyKKhaiThue/kieuKy
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/KyKKhaiThue/kyKKhai
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/KyKKhaiThue/kyKKhaiDenNgay
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/KyKKhaiThue/kyKKhaiDenThang
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/KyKKhaiThue/kyKKhaiTuNgay
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/KyKKhaiThue/kyKKhaiTuThang
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/loaiTKhai
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/maCQTNoiNop
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/maTKhai
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/moTaBMau
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/nganhNgheKD
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/ngayKy
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/ngayLapTKhai
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/nguoiKy
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/pbanTKhaiXML
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/soLan
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/tenCQTNoiNop
 /HSoKhaiThue/TTinChung/TTinTKhaiThue/TKhaiThue/tenTKhai
 
Lần chỉnh sửa cuối:
Upvote 0
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

L
Đổi màu chữ trong VBA
Trả lời
9
Đọc
57
lvh1064
L
H
Hỗ trợ lấy danh sách dữ liệu thỏa mãn điều kiện
Trả lời
3
Đọc
125
DeTong
D
PhanTuHuong
Bàn về môn thể thao bóng bàn nào!
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
38
Đọc
2K
lvh1064
L
salam
Ẩn ảnh sau chữ trong excel
Trả lời
11
Đọc
29K
itusbbk
itusbbk
nobita994
Trừ số lượng dần theo dòng khi quét Sumif tổng có tên sản phẩm bị trùng.
Trả lời
4
Đọc
113
nobita994
nobita994
F
  • Question
Nhờ tư vấn cách tạo QR trong Excel
Trả lời
7
Đọc
544
huuthang_bd
huuthang_bd
nguyen trung cuong
File chứa marco không mở được.
Trả lời
3
Đọc
100
hvnhpro
H
Tienvinh191
  • Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
25
Đọc
2K
haott
H
CodyPham97
tạo biểu tượng thay thế nhấn đúp chuột
Trả lời
4
Đọc
94
phansythao
phansythao
dovanha1994
Giúp e tìm nguyên nhân sai và hướng dẫn e đọc file này với ạ
    • Phẫn nộ
Trả lời
4
Đọc
124
SA_DQ
SA_DQ
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
10
Đọc
566
20050911
20050911
N
Giúp sửa mã code
2
Trả lời
20
Đọc
465
Nguyễn Diêu Hiền
N
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11/2024
    • Thích
    • Yêu thích
Trả lời
1
Đọc
96
SA_DQ
SA_DQ
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
32
Đọc
874
VetMini
V
K
Nhờ mọi người hoàn thiện giúp công thức
Trả lời
4
Đọc
116
kiendt1973
K
P
Nhờ giúp đỡ hàm lọc dữ liệu theo tỉnh
Trả lời
10
Đọc
179
Parabol
P
H
Chúc mừng 20/11- ngày tôn vinh nhà giáo Việt Nam.
    • Thích
    • Yêu thích
Trả lời
0
Đọc
68
HUONGHCKT
H
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
7
Đọc
198
Ny Ny 2024
N
Nhật Anh 9x
  • Question
Tính tồn cuối kỳ luỹ kế cho nhiều mã
Trả lời
2
Đọc
109
Nhật Anh 9x
Nhật Anh 9x
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
2
Trả lời
20
Đọc
598
ptm0412
ptm0412
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

Back
Top Bottom