Nhờ các thầy viết code giúp hoàn thiện nút mở 1 file excel bất kỳ (1 người xem)

[nhdphong]

Hiện tại e đã tạo được 1 đoạn code để chọn mở file của excel, nhưng chỉ mới chọn đc file chứ ko thể mở file lên được. Mong các thầy giúp em vấn đề này với. Xin cảm ơn rất nhiều

 

[Quang_Hải]

Hiện tại e đã tạo được 1 đoạn code để chọn mở file của excel, nhưng chỉ mới chọn đc file chứ ko thể mở file lên được. Mong các thầy giúp em vấn đề này với. Xin cảm ơn rất nhiều

Thêm code này vào trong code có sẵn của bạn

    For i = 1 To UBound(filespec)
      Workbooks.Open filespec(i)
    Next

 

[nhdphong]

Cảm ơn bạn, cho mình hỏi thêm 1 vấn đề nữa là có cách nào chép toàn bộ dữ liệu của file vừa mở vào 1 sheet chỉ định ko bạn, mà sheet này cũng đc tạo ra đồng thời với file excel vừa đc mở

 

[Quang_Hải]

Cảm ơn bạn, cho mình hỏi thêm 1 vấn đề nữa là có cách nào chép toàn bộ dữ liệu của file vừa mở vào 1 sheet chỉ định ko bạn, mà sheet này cũng đc tạo ra đồng thời với file excel vừa đc mở

Theo mình được biết là trên diễn đàn này khoảng 99% yêu cầu đều có hướng xử lý khi có file đính kèm và mô tả rõ ràng.

 

[nhdphong]

Thêm code này vào trong code có sẵn của bạn

    For i = 1 To UBound(filespec)
      Workbooks.Open filespec(i)
    Next

Bạn ơi, sao mình chọn Cancel thì bị lỗi code vậy bạn, mở file lun thì đc

 

[Quang_Hải]

Bạn ơi, sao mình chọn Cancel thì bị lỗi code vậy bạn, mở file lun thì đc

Vì không có code bẫy lỗi cho trường hợp không chọn file nào.
Thêm dòng này vào

  If Ubound(filespec) = 0 then exit sub
 For i = 1 To UBound(filespec)
      Workbooks.Open filespec(i)
  Next

 

[nhdphong]

Vì không có code bẫy lỗi cho trường hợp không chọn file nào.
Thêm dòng này vào

  If Ubound(filespec) = 0 then exit sub
 For i = 1 To UBound(filespec)
      Workbooks.Open filespec(i)
  Next

Không được bạn ơi, nó vẫn bị lỗi như thế này

 

[Quang_Hải]

Không được bạn ơi, nó vẫn bị lỗi như thế này

Vậy làm thế này

Sub Button1_Click()
    filespec = Application.GetOpenFilename(FileFilter:="Microsoft excel files (*.xls), *.xls,CSV (Comma delited)(*.csv),*.csv", Title:="Chon danh sach File", MultiSelect:=True)
        If TypeName(filespec) = "Boolean" Then
        MsgBox "No Files were selected"
        Exit Sub
    End If
    For i = 1 To UBound(filespec)
      Workbooks.Open filespec(i)
    Next
End Sub

 

[ndu96081631]

Không được bạn ơi, nó vẫn bị lỗi như thế này

Phải dùng TypeName hoặc IsArray mới đúng
Ví dụ có thể thay câu lệnh:

If UBound(filespec) = 0 Then Exit Sub

Bằng:

If TypeName(filespec) = "Boolean" Then Exit Sub

------------------------

cho mình hỏi thêm 1 vấn đề nữa là có cách nào chép toàn bộ dữ liệu của file vừa mở vào 1 sheet chỉ định ko

Bạn lưu ý cho rằng: Topic này là hỏi về việc mở 1 file từ đường dẫn chỉ định. Vậy mọi vấn đề khác không liên quan đều được xem là CHEN NGANG và sẽ bị xóa bài
Nếu bạn quan tâm về việc xử lý dữ liệu gì đó, vui lòng hỏi ở topic khác (hoặc search trên diễn đàn cũng có rất nhiều)

 

[nhdphong]

Cảm ơn mọi người đã quan tâm giúp đỡ, mình cũng mới tham gia học hỏi ở diễn đàn này nên vấn đề mà bạn ndu96081631 đưa ra mình sẽ rút kinh nghiệm, bên cạnh đó cũng ko biết xưng hô với mọi người như thế nào nên đành gọi là bạn, có gì thất lễ xin mọi người bỏ qua

 

[nhdphong]

Vậy làm thế này

Sub Button1_Click()
    filespec = Application.GetOpenFilename(FileFilter:="Microsoft excel files (*.xls), *.xls,CSV (Comma delited)(*.csv),*.csv", Title:="Chon danh sach File", MultiSelect:=True)
        If TypeName(filespec) = "Boolean" Then
        MsgBox "No Files were selected"
        Exit Sub
    End If
    For i = 1 To UBound(filespec)
      Workbooks.Open filespec(i)
    Next
End Sub

Bạn ơi, giúp mình thêm vấn đề này với, cũng với đoạn code này nhưng thêm vào điều kiện chỉ mở duy nhất 1 file do mình chỉ định, vd chỉ cho phép open file có tên là cif.xls.

 

[voquangsu]

Bạn ơi, giúp mình thêm vấn đề này với, cũng với đoạn code này nhưng thêm vào điều kiện chỉ mở duy nhất 1 file do mình chỉ định, vd chỉ cho phép open file có tên là cif.xls.

Thấy mâu thuẫn quá. Code thì cho chọn File, nhưng chỉ được mở 1 File duy nhất đã chỉ định.
Ai đời. Cho đi chọn vợ, nhưng chỉ được cưới 1 cô duy nhất đã định sẵn.

 

[nhdphong]

Thấy mâu thuẫn quá. Code thì cho chọn File, nhưng chỉ được mở 1 File duy nhất đã chỉ định.
Ai đời. Cho đi chọn vợ, nhưng chỉ được cưới 1 cô duy nhất đã định sẵn.

Vấn đề ở đây là mình muốn nó ko bị ràng buộc về đường dẫn ấy mà, giống như cho đi chơi thoải mái nhưng cuối cùng cũng phải về với vợ )