Giúp đoạn code lấy dữ liệu dòng cuối cùng bằng VBA Word sang excel (1 người xem)

[heroic]

Mình đang tìm hiểu cách lấy dữ liệu từ word table sang excel bằng đoạn code sau OK ( chạy từ Word nhé). nhưng mới chỉ lấy được 1 giá trị sang mà mình muốn lấy nhiều dữ liệu sang nên cần lấy thứ tự dòng trắng cuối cùng của file excel để ghép dữ liệu nhưng chưa được:

Sub WdBkMktoXL()
Dim ObjExcel As Object, ObjWorkBook As Object, ObjWorksheet As Object, irow As Long
Set ObjExcel = CreateObject("EXCEL.APPLICATION")
Set ObjWorkBook = ObjExcel.Workbooks.Open("D:\PG \NThuphi_T10_2012.xls")
Set ObjWorksheet = ObjWorkBook.Worksheets("sheet1")


ObjWorksheet.Range("A" & 14) = ActiveDocument.Tables(1).Cell(1, 2).Range.Text 'ActiveDocument.Bookmarks("bob").Range.Text
ObjWorkBook.Save
ObjWorkBook.Close
Set ObjWorksheet = Nothing
Set ObjWorkBook = Nothing
ObjExcel.Quit
Set ObjExcel = Nothing
End Sub


Mình đã sử dụng cú pháp lấy dòng cuối trong excel nhưng chạy ko được trong word chưa biết làm sao??????

bằng 2 cách là cho code này mà vẫn ko được

irow = ObjWorksheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

irow = ObjWorksheet.Range("A65536").End(xlUp).Row + 1

Mình cần lấy biến irow này là thứ tự dòng cuối cùng trắng của file excel để mình thay cho số 14 ở trên là cố định dòng 14

 

[heroic]

do thiếu cái này nhé mọi người => Const xlUp As Long = -4162
nên ko chạy chẳng thấy ai trả lời vậy tự xử vậy!