Code lấy đường dẫn và mở file (1 người xem)

[NH_DK]

Em có ví dụ này nhờ mọi người xem dùm cho. Em muốn lấy đường dẫn file sẽ mở trả vào textbox trên userform.
(Câu hỏi cụ thể trong file đính kèm)

 

[ndu96081631]

Em có ví dụ này nhờ mọi người xem dùm cho. Em muốn lấy đường dẫn file sẽ mở trả vào textbox trên userform.
(Câu hỏi cụ thể trong file đính kèm)

Code cho CommandButton:

Private Sub CommandButton2_Click()
  Dim vFile
  vFile = Application.GetOpenFilename("Excel Files, *.xls;*.xlsx;*.xlsm")
  If TypeName(vFile) = "String" Then TextBox1.Text = vFile
End Sub

Nếu là tôi thì tôi không dùng CommandButton + TextBox mà chỉ cần 1 ComboBox là đủ ---> Xem file của tôi đây

 

[NH_DK]

Code cho CommandButton:

Private Sub CommandButton2_Click()
  Dim vFile
  vFile = Application.GetOpenFilename("Excel Files, *.xls;*.xlsx;*.xlsm")
  If TypeName(vFile) = "String" Then TextBox1.Text = vFile
End Sub

Nếu là tôi thì tôi không dùng CommandButton + TextBox mà chỉ cần 1 ComboBox là đủ ---> Xem file của tôi đây

Rất cám ơn anh ndu! Anh cho em hỏi thêm chút xíu nữa nha: Khi textbox có đường dẫn đã chọn rùi, em muốn chọn nút OK để mở file đã chọn?

 

[Hai Lúa Miền Tây]

Code của bạn sửa lại như sau:

Option Explicit
Dim fName As String
Private Sub CommandButton1_Click()
Workbooks.Open (fName)
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
fName = Application.GetOpenFilename()
TextBox1 = fName
End Sub

Private Sub CommandButton3_Click()
    Unload Me
End Sub

 

[NH_DK]

To các AC! Em muốn hỏi thêm 1 vấn đề nữa. Em muốn lưu dữ liệu và em đã tạo 1 form nhờ AC xem thêm cho em chút nữa nhé!
Câu hỏi cụ thể trong file đính kèm!

 

[Quang_Hải]

Em có ví dụ này nhờ mọi người xem dùm cho. Em muốn lấy đường dẫn file sẽ mở trả vào textbox trên userform.
(Câu hỏi cụ thể trong file đính kèm)

Bạn đã biết tạo UserForm và viết code thì mình gợi ý thế này để bạn và những bạn khác có thể tự xử được vấn đề cụ thể
1. Để tìm 1 file trong 1 Folder nào đó mình thử code thế này

Sub layduongdan()
Dim FileToOpen
FileToOpen = Application.GetOpenFilename("Excel Files, *.xls;*.xlsx;*.xlsm")
If FileToOpen <> False Then
    MsgBox FileToOpen
End If
End Sub

2. Để mở 1 File nào đó thì thế này

Sub MoFile()
Dim FileToOpen
FileToOpen = Application.GetOpenFilename("Excel Files, *.xls;*.xlsx;*.xlsm")
If FileToOpen <> False Then
    Workbooks.Open FileToOpen
End If
End Sub

3. Kết hợp 2 ví dụ lại thì thế này. Có tên đường dẫn file rồi thì muốn làm gì với cái tên đó thì tùy ý
Sau khi mở file ra rồi muốn làm gì thì cứ tiếp tục.

Sub vidu()
Dim FileToOpen
FileToOpen = Application.GetOpenFilename("Excel Files, *.xls;*.xlsx;*.xlsm")
If FileToOpen <> False Then
    MsgBox FileToOpen
    Workbooks.Open FileToOpen
End If
End Sub

4. Lúc này File vừa mở sẽ là Workbook hiện hành. Muốn lấy tên của file này thì thế này

Sub vidu2()
Dim FileToOpen
FileToOpen = Application.GetOpenFilename("Excel Files, *.xls;*.xlsx;*.xlsm")
If FileToOpen <> False Then
    MsgBox FileToOpen
    Workbooks.Open FileToOpen
    MsgBox ActiveWorkbook.Name
End If
End Sub

 

[Hai Lúa Miền Tây]

To các AC! Em muốn hỏi thêm 1 vấn đề nữa. Em muốn lưu dữ liệu và em đã tạo 1 form nhờ AC xem thêm cho em chút nữa nhé!
Câu hỏi cụ thể trong file đính kèm!

Lưu file

Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs TextBox1 & "\" & TextBox2 & ".xls"
End Sub

 

[Quang_Hải]

To các AC! Em muốn hỏi thêm 1 vấn đề nữa. Em muốn lưu dữ liệu và em đã tạo 1 form nhờ AC xem thêm cho em chút nữa nhé!
Câu hỏi cụ thể trong file đính kèm!

Bạn muốn lưu 1 File đang có sẵn tại thư mục nào đó sang thư mục khác hay lưu file hiện hành? Câu hỏi chưa rõ lắm thì phải
Nếu lưu file hiện hành thì lưu luôn cả Form không? Code thì sao?

 

[NH_DK]

Em muốn lưu ở bất cứ chỗ bất kỳ anh ah?

 

[Quang_Hải]

Em muốn lưu ở bất cứ chỗ bất kỳ anh ah?

Code bài 7 là dùng để lưu file hiện hành với 1 tên mới đấy. Thử xem thì biết

 

[NH_DK]

AC xem mẫu em muốn tạo nhé!

 

[Quang_Hải]

Private Sub CommandButton1_Click()
FileCopy TextBox2, TextBox1
End Sub

 

[NH_DK]

Private Sub CommandButton1_Click()
FileCopy TextBox2, TextBox1
End Sub

Dạ, vẫn chưa đúng ý em? Anh gửi file đính kèm cho em nhé!

 

[ndu96081631]

Dạ, vẫn chưa đúng ý em? Anh gửi file đính kèm cho em nhé!

Mình nghĩ mấy trò này nó quá đơn giản, bạn "mò mò" 1 hồi là nó tự "ra" thôi
Trình độ của bạn là thừa sức

 

[Quang_Hải]

Dạ, vẫn chưa đúng ý em? Anh gửi file đính kèm cho em nhé!

Lưu file hiên hành cũng không phải, lưu 1 file có sẵn từ 1 thư mục sang thư mục mới cũng không phải
Hiểu chết liền
???

 

[Hai Lúa Miền Tây]

Cái này không đúng, cái kia cũng không. Thôi thì điều đơn giản là record lại macro, điều này bạn chắc biết, dựa vào đó mà "phan" nhé.