Gán dữ liệu từ file.txt cho biến khai báo bằng VBA

[NguyenNgocSon]

Em có vấn đề sau:
1. Có file Input.txt có cấu trúc sau:
6,7,8,9,10
12,13,14,15,16
2.Trong VBA em có biến như sau:
Dim max(4) as double
Dim min(4) as double
3.Giờ em muốn đoạn code để gán các max(i),min(i) từ file text cho biến ?
Cám ơn!

 

[ndu96081631]

Em có vấn đề sau:
1. Có file Input.txt có cấu trúc sau:
6,7,8,9,10
12,13,14,15,16
2.Trong VBA em có biến như sau:
Dim max(4) as double
Dim min(4) as double
3.Giờ em muốn đoạn code để gán các max(i),min(i) từ file text cho biến ?
Cám ơn!

Vậy sau khi ra kết quả thì: max(0) = bao nhiêu? max(1) = bao nhiêu?
Tương tự thế đối với min(0), min(1)....
Thêm nữa: hãy cho file Input.txt của bạn lên đây

 

[NguyenNgocSon]

Vậy sau khi ra kết quả thì: max(0) = bao nhiêu? max(1) = bao nhiêu?
Tương tự thế đối với min(0), min(1)....
Thêm nữa: hãy cho file Input.txt của bạn lên đây

6,7,8,9,10
12,13,14,15,16
min(0)=6,...,min(4)=10
max(0)=12,...,max(4)=16
Cám ơn bác!

 

[ndu96081631]

6,7,8,9,10
12,13,14,15,16
min(0)=6,...,min(4)=10
max(0)=12,...,max(4)=16
Cám ơn bác!

Ví dụ đơn giản thế này:

Sub Test()
  Dim tmp As String
  Dim max, min, arr
  With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(ThisWorkbook.Path & "\Input.txt", 1, , -2)
      tmp = .ReadAll
      .Close
    End With
  End With
  arr = Split(tmp, vbCrLf)
  min = Split(arr(0), ",")
  max = Split(arr(1), ",")
End Sub

Đọc file txt rồi gán vào mảng thôi
Lưu ý: File chứa code nằm cùng thư mục với file Input.txt nha