Tách dữ liệu từ file đuôi tsv (1 người xem)

[h_hung]

Nhờ các bro giải giúp bài toán này, mình có 1 file nguồn đuôi .tsv mình muốn tách dữ liệu của file này để tự động điền vào file mẫu

 

[canguocs]

Nhờ các bro giải giúp bài toán này, mình có 1 file nguồn đuôi .tsv mình muốn tách dữ liệu của file này để tự động điền vào file mẫu

Cài này không khó đâu. Bạn mở file nguồn nó bằng note pad , sau đó copy vao excel , rồi dùng Data/ Text to column là được thôi
Muốn công thức bạn xem file CTT

 

[nmhung49]

Nhờ các bro giải giúp bài toán này, mình có 1 file nguồn đuôi .tsv mình muốn tách dữ liệu của file này để tự động điền vào file mẫu

Mở file nhấn nút tìm tới file cần load
[GPECODE=vb]
Sub LoadGPE()
Dim Fname, rng As Range
Fname = Application.GetOpenFilename("Text Files (*.tsv), *.tsv", , , , True)


With Application
.ScreenUpdating = False
.DisplayAlerts = False
With Sheet1
.Range("A11:K10000").ClearContents
Set rng = .Range("A65000").End(xlUp).Offset(1)
End With
If TypeName(Fname) <> "Boolean" Then
With Workbooks


.OpenText Fname(1), Origin:=65001, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:=".", FieldInfo:=Array(Array(1, 9 _
), Array(2, 9), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 9), Array(12, 1), Array(13, 9), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)), _
TrailingMinusNumbers:=True
With ActiveWorkbook
.ActiveSheet.Range("A1").CurrentRegion.Offset(1).Copy rng
.Close (False)
End With
End With
End If
.ScreenUpdating = True
.DisplayAlerts = True
End With

End Sub
[/GPECODE]

 

[h_hung]

Mở file nhấn nút tìm tới file cần load
[GPECODE=vb]
Sub LoadGPE()
Dim Fname, rng As Range
Fname = Application.GetOpenFilename("Text Files (*.tsv), *.tsv", , , , True)



With Application
.ScreenUpdating = False
.DisplayAlerts = False
With Sheet1
.Range("A11:K10000").ClearContents
Set rng = .Range("A65000").End(xlUp).Offset(1)
End With
If TypeName(Fname) <> "Boolean" Then
With Workbooks


.OpenText Fname(1), Origin:=65001, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:=".", FieldInfo:=Array(Array(1, 9 _
), Array(2, 9), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 9), Array(12, 1), Array(13, 9), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)), _
TrailingMinusNumbers:=True
With ActiveWorkbook
.ActiveSheet.Range("A1").CurrentRegion.Offset(1).Copy rng
.Close (False)
End With
End With
End If
.ScreenUpdating = True
.DisplayAlerts = True
End With

End Sub
[/GPECODE]

cám ơn bạn nhiều nhé, mình làm được rồi. Cho mình hỏi là mình muốn kẻ dòng và thêm 1 cột tổng ở hai cột số tiền thì làm như thế nào

 

[nmhung49]

cám ơn bạn nhiều nhé, mình làm được rồi. Cho mình hỏi là mình muốn kẻ dòng và thêm 1 cột tổng ở hai cột số tiền thì làm như thế nào

Sủa lại đoạn thành

.ActiveSheet.Range("A1").CurrentRegion.Offset(2).Copy rng
Sheet1.[J11:K11].FormulaR1C1 = "=SUM(R[1]C:R[1000]C)"

 

[h_hung]

Sửa lại đoạn nào bn ơi, mình chưa hiểu

 

[dah2store]

Bạn ơi mình bị lỗi font khi chèn file đuôi tsv vào không biết do đâu nhỉ