excel_la_gi
Thành viên mới
- Tham gia
- 19/2/14
- Bài viết
- 2
- Được thích
- 0
Chao các bạn,
Mình có viết đoạn code bằng vba, tại file Analysis tự động cập nhật dữ liệu từ các file trong cùng folder vào các sheet tự động, tuy nhiên đoạn code không chạy được:
Sub TH()
Dim Wb, WTH As Workbook
Dim ws As Worksheet
Dim i As Integer
For i = 1 To [F2].Value
On Error Resume Next
Set WTH = Workbooks("Analysis.xls")
Set ws = WTH.Sheets("Basic").Range("C" & i + 1)
Set Wb1 = Workbooks.Open(ThisWorkbook.Path & "\Report human_" & WTH.Sheets("Basic").Range("C" & i + 1).Value & ".xls")
'auto find sheets
WTH.Sheets([WTH.Sheets("Basic").Range("C" & i + 1).Value]).Range("A2
15").Value = Wb1.Sheets("Total").Range("A215").Value
' WTH.Sheets("CP01").Range("A215").Value = Wb1.Sheets("Total").Range("A215").Value
Wb1.Close False
Next i
End Sub
Mong các bạn xem giúp
Mình có viết đoạn code bằng vba, tại file Analysis tự động cập nhật dữ liệu từ các file trong cùng folder vào các sheet tự động, tuy nhiên đoạn code không chạy được:
Sub TH()
Dim Wb, WTH As Workbook
Dim ws As Worksheet
Dim i As Integer
For i = 1 To [F2].Value
On Error Resume Next
Set WTH = Workbooks("Analysis.xls")
Set ws = WTH.Sheets("Basic").Range("C" & i + 1)
Set Wb1 = Workbooks.Open(ThisWorkbook.Path & "\Report human_" & WTH.Sheets("Basic").Range("C" & i + 1).Value & ".xls")
'auto find sheets
WTH.Sheets([WTH.Sheets("Basic").Range("C" & i + 1).Value]).Range("A2
15").Value = Wb1.Sheets("Total").Range("A215").Value' WTH.Sheets("CP01").Range("A2
15").Value = Wb1.Sheets("Total").Range("A215").ValueWb1.Close False
Next i
End Sub
Mong các bạn xem giúp
