Nhờ sửa câu lệnh trong code

[TrungChinhs]

Nhờ các bạn giúp mình sửa câu lệnh này:
...
Set MyCloseWB = Workbooks.Open("D:\Hoc VBA\tim mo file.xls", False, False)
...
Sửa câu lệnh trên như thế nào để lấy nội dung "D:\Hoc VBA\tim mo file.xls" từ một ô ngoài bảng tính vào trong câu lệnh ?
Hoặc viết code như thế nào để chuyển nội dung của một ô vào trong câu lệnh ?. Xin cảm ơn !

 

[anhphuong]

Nhờ các bạn giúp mình sửa câu lệnh này:
...
Set MyCloseWB = Workbooks.Open("D:\Hoc VBA\tim mo file.xls", False, False)
...
Sửa câu lệnh trên như thế nào để lấy nội dung "D:\Hoc VBA\tim mo file.xls" từ một ô ngoài bảng tính vào trong câu lệnh ?
Hoặc viết code như thế nào để chuyển nội dung của một ô vào trong câu lệnh ?. Xin cảm ơn !

Không biết mục đích của tác giả là sẽ làm gì nữa nhưng nếu chỉ có như vậy thì sẽ là :

....
Dim strTenFile As String
Set strTenFile = Sheets("Sheet1").Cells(1,1).Value
....
Set MyCloseWB = Workbooks.Open(strTenFile, False, False)
...

 

[TrungChinhs]

Chào các bạn ! mình đang gặp khó khăn trong việc xử lý Sub Autofilter dưới đây:

[FONT=Courier New]Sub Autofilter()[/FONT]
[FONT=Courier New]    Columns("C:D").Select[/FONT]
[FONT=Courier New]    Selection.Autofilter[/FONT]
[FONT=Courier New]    Selection.Autofilter Field:=2, Criteria1:="<>[/FONT][B][COLOR=red][FONT=Courier New]1[/FONT][/COLOR][/B][FONT=Courier New]", Operator:=xlAnd[/FONT]
[FONT=Courier New]End Sub[/FONT]

1. Mình muốn số 1 được nhận biết từ ô A1 của Sheet có tên là Data trong File đang mở thì phải viết Code như thế nào ?
2. Có thể gán giá trị từ InputBox vào đây được không, nếu được thì viết Code như thế nào ? ví dụ giá trị của InputBox là: MyValue = InputBox(Message, title, Default)
Xin cảm ơn !

 

[ptm0412]

Selection.Autofilter Field:=2, Criteria1:="<>" & MyValue, Operator:=xlAnd

 

[ChanhTQ@]

Nhắc nhỏ bạn Trung Chính

Để tiến xa trong VBA, ta không nên đặt tên file, tên sheets, tên thư mục chứa khoảng trắng;
Chớ nên lạm dụng, tuy rằng điều đó BG không cấm!