Giúp sửa code để lấy dữ liệu sang 1 file khác không cần biết tên file đó

[hondacrv2019]

Chào cả nhà GPE ! Chúc cả nhà Rực rở 20-10-2020
Tình hình là em có 2 file (A,B) em muốn lấy dữ liệu từ File A sang File B ( tên file e thay đổi thường xuyên, tên sheet em không bao giờ thay đổi , Và Code luôn chạy ở File A ). Em đang dùng code thế này

Sub chepdulieu() ' Code o File A
Workbooks("FileB.xlsb").Worksheets("Sheet1").Range("A1:C5").Value = Workbooks("FileA.xlsb").Worksheets("Sheet1").Range("A1:C5").Value
End Sub

Code chạy ok nhưng có 1 khuyết điểm là mổi lần em đổi tên File em lại phải sửa code lại. Và em đã sửa lại code như thế này ( Tất nhiên File chạy code là FIle A )

Sub chepdulieu() ' Code o File A
Workbooks("FileB.xlsb").Worksheets("Sheet1").Range("A1:C5").Value = Range("A1:C5").Value
End Sub

Và Code trên sau này đổi tên File B em lại phải sửa code lại chổ "FIleB.xlsb"). Vậy cho em hỏi có cách nào để code hiểu lấy dữ liệu vùng A1:C5 của file hiện hành đang chạy code sang File khác mà mình không cần phải cài tên trước ( Tất nhiên chỉ chạy trên máy chỉ có 2 file excel thôi , nếu >2 file sẽ không chạy , và tên Sheet1 của file cần lấy luôn luôn cố định ). Em xin chân thành cảm ơn

 

[aduc]

Để file trong 1 thư mục cố định. Duyệt file trong thư mục đó mà ko cần quan tâm nó tên gì.

 

[hondacrv2019]

Để file trong 1 thư mục cố định. Duyệt file trong thư mục đó mà ko cần quan tâm nó tên gì.

E file đó nằm khác thư mục bác ơi. tất nhiên trên máy e chỉ mở có 2 File thôi

 

[aduc]

E file đó nằm khác thư mục bác ơi. tất nhiên trên máy e chỉ mở có 2 File thôi

Ý mình là để FileB trong 1 thư mục cố định thì ko cần phải quan tâm tên file là gì.

 

[hondacrv2019]

Ý mình là để FileB trong 1 thư mục cố định thì ko cần phải quan tâm tên file là gì.

Vậy thì code sao bác. Nhưng mà phải làm sao nằm khác cũng được thì tất nhiên 2 mở có file . File đang mở là file chạy code còn File con lại là file nhận dữ liệu vậy mới Hoàn hảo bác à

 

[snow25]

Chào cả nhà GPE ! Chúc cả nhà Rực rở 20-10-2020
Tình hình là em có 2 file (A,B) em muốn lấy dữ liệu từ File A sang File B ( tên file e thay đổi thường xuyên, tên sheet em không bao giờ thay đổi , Và Code luôn chạy ở File A ). Em đang dùng code thế này

Sub chepdulieu() ' Code o File A
Workbooks("FileB.xlsb").Worksheets("Sheet1").Range("A1:C5").Value = Workbooks("FileA.xlsb").Worksheets("Sheet1").Range("A1:C5").Value
End Sub

Code chạy ok nhưng có 1 khuyết điểm là mổi lần em đổi tên File em lại phải sửa code lại. Và em đã sửa lại code như thế này ( Tất nhiên File chạy code là FIle A )

Sub chepdulieu() ' Code o File A
Workbooks("FileB.xlsb").Worksheets("Sheet1").Range("A1:C5").Value = Range("A1:C5").Value
End Sub

Và Code trên sau này đổi tên File B em lại phải sửa code lại chổ "FIleB.xlsb"). Vậy cho em hỏi có cách nào để code hiểu lấy dữ liệu vùng A1:C5 của file hiện hành đang chạy code sang File khác mà mình không cần phải cài tên trước ( Tất nhiên chỉ chạy trên máy chỉ có 2 file excel thôi , nếu >2 file sẽ không chạy , và tên Sheet1 của file cần lấy luôn luôn cố định ). Em xin chân thành cảm ơn

Thế bạn có cái gì để xác định cái file kia.Bạn nói thì nó cũng phải có cố định cái gì chứ.Hay là làm theo kiểu chọn file.

 

[giaiphap]

Vậy thì code sao bác. Nhưng mà phải làm sao nằm khác cũng được thì tất nhiên 2 mở có file . File đang mở là file chạy code còn File con lại là file nhận dữ liệu vậy mới Hoàn hảo bác à

Dùng thử code này xem có khám phá được gì không?

Sub GPE()
Dim Wb As Workbook
For Each Wb In Application.Workbooks
    If Wb.FullName <> ThisWorkbook.FullName Then MsgBox Wb.Name
Next Wb
End Sub

 

[anhdepjai]

Tức là bạn lấy dữ liệu từ file đang mở, thế có phải bất tiện không?
Nếu mở file thì chỉ cần tab qua rồi copy phát là xong.

 

[hondacrv2019]

Thế bạn có cái gì để xác định cái file kia.Bạn nói thì nó cũng phải có cố định cái gì chứ.Hay là làm theo kiểu chọn file.

trên máy tính em mở 2 file. File đang có code là File cân copy. thì File còn lại là phai nhận dữ liệu

 

[snow25]

trên máy tính em mở 2 file. File đang có code là File cân copy. thì File còn lại là phai nhận dữ liệu

Vậy bạn dùng code bài 7 là được code đó nó sẽ duyệt qua tất cả các file đang mở.