ExcelHome技术论坛

标题: Workbooks.Open Filename [打印本页]

作者: 哥不行但有型    时间: 2020-3-18 12:21
标题: Workbooks.Open Filename
通过录制宏的方式打开了这个工作簿:Workbooks.Open Filename:="C:\Users\jl\Desktop\B.xlsx",然后引用它的单元格.

因为文件是不固定的,不能每次都录制宏,烦请提供一个打开文件的窗体代码,类似一个"ctrl+o".





Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Workbooks.Open Filename:="C:\Users\jl\Desktop\B.xlsx"

    Cells(Target.Row, 1) = ActiveWorkbook.Worksheets(1).[e1]
   
    Cells(Target.Row, 2) = ActiveWorkbook.Worksheets(1).[h1]
   
    ActiveWorkbook.Close

End Sub



作者: 大灰狼1976    时间: 2020-3-18 12:25
  1. Sub test()
  2. Dim fileName$
  3. fileName = Application.GetOpenFilename()
  4. If fileName = "False" Then Exit Sub
  5. Workbooks.Open fileName
  6. End Sub
复制代码


作者: 哥不行但有型    时间: 2020-3-19 17:12
大灰狼1976 发表于 2020-3-18 12:25

非常感谢大灰狼的帮助,可以帮我加一个开关的代码吗?每次点击单元格都会激活事件有点麻烦.
作者: 大灰狼1976    时间: 2020-3-19 20:14
可你的原始代码里面,每次打开后都会关闭工作簿的呀,如果通过开关屏蔽掉的话,再运行不就错误了吗。




欢迎光临 ExcelHome技术论坛 (http://club.excelhome.net/) Powered by Discuz! X3.4