Bỏ dấu nháy kép "" và số 0 khi tổng hợp File text vào Excel (1 người xem)

[baquang1984]

Hiện tại em được các anh chị của diễn đàn giúp đỡ viết Sub tổng hợp các File text vào Excel, khi tổng hợp thì chương trình tổng hợp cả dấu nháy "" và những cột dữ liệu có giá trị là số không "0". Vậy nhờ các cao thủ giúp nội dung sau ạ
- Khi tổng hợp File text vào Sheets"DATA" thì bỏ giúp em dấy nháy kép "" đi được không ạ
- Khi tổng hợp File text vào Sheets"DATA" thì bỏ giúp em những ô dữ liệu có số không "0" và chỉ để các Cell đó trống
Cảm ơn mọi người!

 

[chuot0106]

Hiện tại em được các anh chị của diễn đàn giúp đỡ viết Sub tổng hợp các File text vào Excel, khi tổng hợp thì chương trình tổng hợp cả dấu nháy "" và những cột dữ liệu có giá trị là số không "0". Vậy nhờ các cao thủ giúp nội dung sau ạ
- Khi tổng hợp File text vào Sheets"DATA" thì bỏ giúp em dấy nháy kép "" đi được không ạ
- Khi tổng hợp File text vào Sheets"DATA" thì bỏ giúp em những ô dữ liệu có số không "0" và chỉ để các Cell đó trống
Cảm ơn mọi người!

Bạn mở File, ấn nút "Bỏ dấu nháy kép" và Nút "bỏ số 0", có gì hồi âm nhé!

 

[Quang_Hải]

Hiện tại em được các anh chị của diễn đàn giúp đỡ viết Sub tổng hợp các File text vào Excel, khi tổng hợp thì chương trình tổng hợp cả dấu nháy "" và những cột dữ liệu có giá trị là số không "0". Vậy nhờ các cao thủ giúp nội dung sau ạ
- Khi tổng hợp File text vào Sheets"DATA" thì bỏ giúp em dấy nháy kép "" đi được không ạ
- Khi tổng hợp File text vào Sheets"DATA" thì bỏ giúp em những ô dữ liệu có số không "0" và chỉ để các Cell đó trống
Cảm ơn mọi người!

Bạn sửa lại đoạn code có sẵn 1 chút là được

            For j = 0 To UBound(Tmp)
                If Trim(Tmp(j)) <> 0 Then
                Kq(K, j + 1) = Replace(Trim(Tmp(j)), """", "")
                End If
            Next

 

[baquang1984]

Bạn sửa lại đoạn code có sẵn 1 chút là được

Em cảm ơn anh quanghai1969 và anh chuot0106 đã giúp đỡ, em muốn hỏi thêm các anh một chút nữa nhờ các anh giải thích giúp code của chương trình

Sub GetDT(ByVal FName As String, tde As Boolean)   Dim Data As Variant, Tmp As Variant, Sh As Integer
   Dim Kq(), K, j, dong As Long
   ReDim Kq(1 To 60000, 1 To 50)
   ' thay doi 1000 la dong txt file neu nhiu hon thi thay doi, 50 la so cot txt file neu nhiu hon thi thay doi
   Tmp = Split(FName, "\")
   Sh = FreeFile
K = 0: dong = 0
Open FName For Input As #Sh
Do Until EOF(Sh)
   Line Input #Sh, Data
      dong = dong + 1
      Tmp = Split(Data, vbTab)
      If dong > 1 Then
        If IsArray(Tmp) Then
          K = K + 1
            For j = 0 To UBound(Tmp)
                If Trim(Tmp(j)) <> 0 Then
                Kq(K, j + 1) = Replace(Trim(Tmp(j)), """", "")
                End If
            Next
        End If
    End If
Loop
Close #1
If K Then Sheets("DATA").[A65536].End(3).Offset(1).Resize(UBound(Kq), UBound(Kq, 2)) = Kq
End Sub

là khi mà em tổng hợp file Text vào Excel chỉ áp dụng với loại file Text này. Còn có dạng file Text khác thì áp dụng như thế nào và sửa Code ở chố nào cho phù hợp ạ để có thể sử dụng được với những loại file Text khác ạ VD file Text như file đính kèm