求一个VBA代码的写法

koutx

在Access中用
Set xlBook = xlApp.workbooks.Open("Excel表名")
打开已有的Excel表，并点击某一行（或某一列）后，在Access vba中如何得到被点击行行号（或列号）

roych

1. Sub test()
   
2. Dim xx As Object
   
3. Set xx = CreateObject("excel.application")
   
4. xx.Workbooks.Open CurrentProject.Path & "\ee.xls"
   
5. xx.Visible = True
   
6. xx.Sheets(2).Select
   
7. xx.Range("B7").Select '如改为：xx.Range("B:B").Select，返回时则需要改成Selection.Column才可以返回2（即B列）
   
8. MsgBox "当前工作表是：" & xx.ActiveSheet.Name & Chr(13) & "活动单元格是：" & xx.ActiveCell.Address
   
9. xx.Close
   
10. End Sub
    

复制代码

koutx

谢谢roych，预祝春节快乐。也可用xlApp.Selection.Row（Column）得到。

ak47ok

每次回帖、谢谢！辛苦了。