Nhờ hướng dẫn cách làm việc với Workbook trong macro (1 người xem)

[AoiSora]

Hi mọi người.
Mình là mem mới và cũng mới tập tành làm việc với macro.
Hiện tại mình đang có 1 thắc mắc mong mọi người giúp đỡ.

Mình đang làm 1 tool sinh file dựa vào template có sẵn (tên file sinh ra ko cố định mà do mình nhập vào).
Hiện mình đang gặp khó khăn trong việc thao tác qua lại giữa 2 workbook (file Tool và file mới được sinh ra).

Ví dụ mình có 1 file tool A và sinh ra file B (tên file ko xác định). TH mình muốn copy dữ liệu từ file A vào file B thì làm thế nào ạ?​

Ngoài ra mình muốn duyệt qua tất cả các sheet tại file A nếu gặp dòng dữ liệu có chữa ký tự "ABC" thì thực hiên ....
thì mình fai làm như thế nào?

Mong mọi người giúp đỡ

 

[anhdepjai]

Bạn up file lên đi, nói chả hiểu gì

 

[sealand]

Bạn tham khảo đoạn code sau:

Sub Test()
Dim SourceName, DesName, mFolder, Wb As Workbook
On Error Resume Next
mFolder = ThisWorkbook.Path
SourceName = "Temp.xlsx"
DesName = InputBox("Nhap ten cho file moi. (Khong co phan mo rong)") & ".xlsx"
Workbooks(DesName).Close False
FileCopy mFolder & "\" & SourceName, mFolder & "\" & DesName
Set Wb = Workbooks.Open(mFolder & "\" & DesName )
ThisWorkbook.Worksheets("Sheet1").[A1].Copy Wb.Worksheets("Sheet1").[A1]
Wb.Close True
End Sub

 

[AoiSora]

Bạn tham khảo đoạn code sau:

Sub Test()
Dim SourceName, DesName, mFolder, Wb As Workbook
On Error Resume Next
mFolder = ThisWorkbook.Path
SourceName = "Temp.xlsx"
DesName = InputBox("Nhap ten cho file moi. (Khong co phan mo rong)") & ".xlsx"
Workbooks(DesName).Close False
FileCopy mFolder & "\" & SourceName, mFolder & "\" & DesName
Set Wb = Workbooks.Open(mFolder & "\" & DesName )
ThisWorkbook.Worksheets("Sheet1").[A1].Copy Wb.Worksheets("Sheet1").[A1]
Wb.Close True
End Sub

Thanks bạn nhé. phần này mình làm được rồi.
Nhưng vấn đề thứ 2 mình vẫn chưa tìm dc cách xử lý.
Ví dụ:
Mình có các sheets Input1, Input2, input3... Mình muốn duyết qua tất cả dữ liệu tại column B của các sheets này.
Sau đó check nội dung của các line này nếu mà có chuỗi "AABBCC" thì thực hiện xử lý tiếp. ko thì bỏ qua.

Mọi người có thể giúp mình thuật toán dc ko?

 

[sealand]

Bạn thử code này xem sao:

Sub Suly()
Dim Cl As Range, ShName, AdStar, i
ShName = Array("Input1", "Input2", "Input3")
For i = LBound(ShName) To UBound(ShName)
With ThisWorkbook.Worksheets(ShName(i)).Columns("B:B")
Set Cl = .Find(What:="AABBCC", LookIn:=xlValues, LookAt:=xlPart)
If Not Cl Is Nothing Then
AdStar = Cl.Address
Do
'Lam gi tuy ban
MsgBox "Thay roi!!! Diachi: " & ShName(i) & "!" & Cl.Address 'Vi du
Set Cl = .FindNext(Cl)
Loop While Not Cl Is Nothing And Cl.Address <> AdStar
End If
End With
Next i
End Sub