Hàm lấy dữ liệu từ file text vào Excel và ghi từ Excel sang file text - API (3 người xem)

[Kiều Mạnh]

1/ ý tưởng bắt đầu có từ chủ đề sau nói rồi thì cũng không nhắc lại nữa cho nhọc ra

Tìm kiếm File trong folder

1/ Xuất phát từ những thành viên đã hỏi trên GPE này 1 số hàm File và Folder có liên Quan tới tên File Or Folder là tiếng việt có dấu 2/ Thông thường thì ta sử dụng Windows thì thấy đa số là sử dụng Scripting.FileSystemObject của Ms 3/ một số khác sử dụng cmd để tìm kiếm file trong Folder duyệt...

www.giaiphapexcel.com

2/ Phát sinh 1 tí dữ liệu Txt Có BOM chủ đề sau

Chia sẻ: Hàm lấy dữ liệu từ file text vào Excel và ghi từ Excel sang file text.

Thấy nhiều người có nhu cầu lấy dữ liệu từ file dạng text như .txt, .xml,... sang Excel để xử lý tổng hợp, báo cáo, đồng thời cũng xuất dữ liệu từ Excel lưu sang file dạng text, cho nên tôi viết 2 hàm để làm điều ấy. 1. Hàm ấy dữ liệu từ file text vào Excel: Kết quả trả về của hàm là 1 cửa sổ...

www.giaiphapexcel.com

3/ Trên Cở sở viết 1 số Hàm tiện ích có hổ trợ Unicode Path và mô phỏng theo 1 số hàm có trong Scripting.FileSystemObject của Ms

Tôi xuất vài Hàm API Demo cho ai tò mò thử chút .... Như Mô tả theo mục số 2 của chủ đề đó = làm biếng viết lắm

Code rất đơn giản là lấy dữ liệu File Txt và ghi vào nó như sau

Option Explicit
Rem ----------------------------
Dim FilePath As String
Dim ListFiles() As String, ObjFile As Variant
Dim i As Long, aText As String
Rem ----------------------------
Sub GetData_TxtToArray()
    Dim Res(1 To 1048575, 1 To 1), k As Long
    Rem ----------
    FilePath = ThisWorkbook.Path & "\DataTxt.txt"
    Rem ----------
    Dim t@: t = msTimer
    ActiveSheet.UsedRange.ClearContents
    Rem ----------
    ListFiles = TxtToArrayA(FilePath)
    Rem ----------
    For Each ObjFile In ListFiles
    Rem For i = i To UBound(ListFiles)
        Rem Debug.Print ListFiles(i)
        Rem Debug.Print ObjFile
        k = k + 1
        Res(k, 1) = ObjFile
    Next
    If k Then
        ActiveSheet.[A3].Resize(k) = Res
        ActiveSheet.Range("D1").Value = msTimer - t
    End If
End Sub
Rem ----------------------------
Sub Select_GetData_TxtToArray()
    Dim Res(1 To 1048575, 1 To 1), k As Long
    Rem ----------
    FilePath = GetOpenFilename$
    On Error GoTo thoat
    Rem ----------
    Dim t@: t = msTimer
    ActiveSheet.UsedRange.ClearContents
    Rem ----------
    ListFiles = TxtToArrayA(FilePath)
    Rem ----------
    For Each ObjFile In ListFiles
    Rem For i = i To UBound(ListFiles)
        Rem Debug.Print ListFiles(i)
        Rem Debug.Print ObjFile
        k = k + 1
        Res(k, 1) = ObjFile
    Next
    If k Then
        ActiveSheet.[A3].Resize(k) = Res
        ActiveSheet.Range("D1").Value = msTimer - t
    End If
thoat:     Exit Sub
End Sub
Rem ----------------------------
Sub Main_WriteLineToTxtA()
    FilePath = ThisWorkbook.Path & "\DataTxt.txt"
    Rem ----------
    Dim t@: t = msTimer
    Rem ----------
    For i = 1 To 104 '8570 ''999999999
        aText = Sheet3.Range("A1").Value & Space(3) & i
        Rem Debug.Print xx
        Call WriteLineToTxtA(FilePath, aText)
    Next
    Range("D1").Value = msTimer - t
End Sub
Rem ----------------------------
Sub Mian2_WriteLineToTxtA()
    FilePath = ThisWorkbook.Path & "\DataTxt.txt"
    Call WriteLineToTxtA(FilePath, Sheet3.Range("A1").Value)
End Sub
Rem ----------------------------

Code mẫu đơn giản nhất cho các bạn mới tập tành code đọc nó ... còn Hàm lấy kiểu tùy biến lấy lên 1 Array còn lại xử lý sao thì tùy ai đó vận dụng nó

 

[Mr.hieudoanxd]

Em mở thì bị lỗi này không rõ thiếu thư viện gì anh nhỉ

 

[Kiều Mạnh]

Em mở thì bị lỗi này không rõ thiếu thư viện gì anh nhỉ

do tôi quên chưa bỏ Check COM của cái DLL đang viết khác ... xem hình sau Bỏ check cái DLL đó đi xong chọn Ok xong lưu lại.. thoát ra mở lại là ok

 

[ongke0711]

Em mở thì bị lỗi này không rõ thiếu thư viện gì anh nhỉ

Cái DLL này chưa đăng ký thì lấy gì mà LoadLibraryA nhỉ?

 

[Kiều Mạnh]

Cái DLL này chưa đăng ký thì lấy gì mà LoadLibraryA nhỉ?

cái đó là 1 DLL khác của dự án code khác ... Nó là API + COM = nếu chưa đăng ký thì dùng API còn nếu đăng ký nó thì dùng COM + API = 2 cái luôn đấy