Office中国论坛/Access中国论坛

标题: 求一个VBA代码的写法 [打印本页]
作者: koutx    时间: 2013-2-7 15:59
标题: 求一个VBA代码的写法
本帖最后由 koutx 于 2013-2-7 16:01 编辑

在Access中用
Set xlBook = xlApp.workbooks.Open("Excel表名")
打开已有的Excel表，并点击某一行（或某一列）后，在Access vba中如何得到被点击行行号（或列号）
作者: roych    时间: 2013-2-8 16:35
  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    时间: 2013-2-8 19:47
谢谢roych，预祝春节快乐。也可用xlApp.Selection.Row（Column）得到。
作者: ak47ok    时间: 2015-11-28 13:14
每次回帖、谢谢！辛苦了。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3