Create Button

[quocthan92]

Hi everyone,
Mình muốn tạo 1 button load dữ liệu từ sheet1 file excel2 vào sheet1 file excel1
Thanks and Best Regard!

 

[befaint]

Hi everyone,
Mình muốn tạo 1 button load dữ liệu từ sheet1 file excel2 vào sheet1 file excel1
Thanks and Best Regard!

Cái button đó đây, rồi sao?

 

[quocgiacan]

Cái button đó đây, rồi sao?

View attachment 174914

Hao mấtch?
How much?!

 

[quocthan92]

Hi moi nguoi,
Mình muốn ấn button thì sẽ hiện lên hộp thoại chon đường dẫn và chon file 2 load dữ liệu từ file 2 vào file 1. Hiểu đơn giản là add file excel khác.
Thank mọi người ạ.

 

[PacificPR]

Hi moi nguoi,
Mình muốn ấn button thì sẽ hiện lên hộp thoại chon đường dẫn và chon file 2 load dữ liệu từ file 2 vào file 1. Hiểu đơn giản là add file excel khác.
Thank mọi người ạ.

Vậy thì phải thêm cái code cho cái button đó nữa. Bạn phải đưa thêm cái file đích lên để mọi người mới biết bạn cần lấy cái gì từ file nguồn nữa chứ./

 

[befaint]

Hi moi nguoi,
Mình muốn ấn button thì sẽ hiện lên hộp thoại chon đường dẫn và chon file 2 load dữ liệu từ file 2 vào file 1. Hiểu đơn giản là add file excel khác.
Thank mọi người ạ.

Tải 2 file ở trên về không mở được...

Function GetFile(strPath As String) As String
Dim fdr As FileDialog
Dim fName As String
Set fdr = Application.FileDialog(msoFileDialogFilePicker)
With fdr
    .AllowMultiSelect = False
    .Title = "Select a file"
    .Filters.Clear
    .Filters.Add "Excel File", "*.xls*"
    .Filters.Add "All Files", "*.*"
    If .Show <> -1 Then GoTo 1
        fName = .SelectedItems(1)
End With
1:
GetFile = fName
Set fdr = Nothing
End Function
'--------------------------
Sub Main()
Dim duongdan As String
duongdan = GetFile("")
If duongdan <> "" Then MsgBox "Done!", , "Add file excel"
End Sub

 

[quocthan92]

Tải 2 file ở trên về không mở được...

Function GetFile(strPath As String) As String
Dim fdr As FileDialog
Dim fName As String
Set fdr = Application.FileDialog(msoFileDialogFilePicker)
With fdr
    .AllowMultiSelect = False
    .Title = "Select a file"
    .Filters.Clear
    .Filters.Add "Excel File", "*.xls*"
    .Filters.Add "All Files", "*.*"
    If .Show <> -1 Then GoTo 1
        fName = .SelectedItems(1)
End With
1:
GetFile = fName
Set fdr = Nothing
End Function
'--------------------------
Sub Main()
Dim duongdan As String
duongdan = GetFile("")
If duongdan <> "" Then MsgBox "Done!", , "Add file excel"
End Sub

Hi ban, minh khong hieu doan With fdr.. end with. Ban giai thich giup minh nhe

 

[be_09]

Hi everyone,
Mình muốn tạo 1 button load dữ liệu từ sheet1 file excel2 vào sheet1 file excel1
Thanks and Best Regard!

Có một vấn đề bạn cần phải nêu rõ là khi nhấn nút lấy dữ liệu vào thì ghi đè lên dữ liệu cũ hay ghi tiếp theo xuống bên dưới dữ liệu đã có.

 

[befaint]

Hi ban, minh khong hieu doan With fdr.. end with. Ban giai thich giup minh nhe

Nghia la di cho khac choi...

 

[quocthan92]

Có một vấn đề bạn cần phải nêu rõ là khi nhấn nút lấy dữ liệu vào thì ghi đè lên dữ liệu cũ hay ghi tiếp theo xuống bên dưới dữ liệu đã có.

Ghi de luon ban oi

 

[befaint]

Ghi de luon ban oi

Vô thùng rác chơi...

http://www.giaiphapexcel.com/forum/showthread.php?76052&tabid=143

 

[be_09]

Ghi de luon ban oi

File bị lỗi nên không xem được.

 

[quocthan92]

File bị lỗi nên không xem được.

Bạn tạo mới 2 file book1 và book2. book1 có dữ liệu book 2 thì trống. Bạn cứ việc lấy dữ liệu từ book1 sang book2