Excel VBA 不打开Excel文件访问其中内容的方法

最新推荐文章于 2023-09-28 11:07:45 发布
最新推荐文章于 2023-09-28 11:07:45 发布
阅读量9.3k 收藏 12
点赞数 2
分类专栏： 转载 技巧备份 文章标签： Excel VBA 读取 
Public Function GetCellValue(strPath, strFile, strSheet, strA1)
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    If Dir(strPath & strFile) = "" Then     '判断文件是否存在
        '文件不存在时产生运行时错误，此错误会传递给调用此函数的过程
        Err.Raise 12345, "GetCellValue", "No found file"
        Exit Function
    End If
    '调用XLM4.0宏表函数读取指定区域的内容
    '如果指定工作表不存在，返回错误
    GetCellValue = ExecuteExcel4Macro("'" & strPath & "[" & strFile & "]" _
        & strSheet & "'!" & Range(strA1).Address(, , xlR1C1))
End Function

莫谈国事
关注
  • 2
    点赞
  • 踩
  • 12
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
不打开工作簿提取数据的几种方法
weixin_30333885的博客
08-23 8797
不打开工作簿取得其他工作簿数据的几种方法 在Excel的使用过程中，经常需要引用其他工作簿的数据，而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据，有以下几种方法可以实现。 1 数据不多时使用公式 如果需要引用的数据不是太多，可以使用公式取得引用工作簿中的工作表数据，如下面的代码所示。 Sub CopyData_1() Dim Temp...
Excel（WPS）使用VBA，不打开文件情况下提取其他工作簿数据
IT-Why
02-24 1万+
Excel（WPS）使用VBA，不打开文件情况下提取其他工作簿数据提取函数，返回提取到的值使用示例 在不打开工作簿的情况下，VBA读取其他工作簿数据 很多方法需要打开才能提取，如果没打开会显示错误，比如inderect函数等 提取函数，返回提取到的值 path：文件路径 file:文件名 sheet：工作表名 ref：需要读取的目标单元格 Private Function GetValue(path, file, sheet, ref) ' 从未打开的Excel文件中检索数据 Dim a
【VBA技巧】不打开Excel读取数据
STR_Liang的博客
03-26 1万+
原文链接：https://mp.weixin.qq.com/s/5Pje8v2bmHYZcnYgmYnyjQ 如果是手工提取数据，通常是打开文件在复制粘贴。换用VBA则可以快速打开后马上复制好，能节省不少时间和精力。 Workbooks.Open可以很方便地打开文件，但是当需要操作的文件过多的时候，状态栏堆满了打开的文件也不好看。下面介绍两种不用打开文件就能提取数据的方法。 方法一 S...
excel中不打开文件调用其它文件数据(VBA)
03-06
excel中不打开文件调用其它文件数据(VBA)
如何不打开excel文件搜索其中内容---在线绿色工具
loubo_001的专栏
05-28 4381
我们工作中，存了很多Excel文件，有时候我们要查个东西，比如流水，要一个一个打开查太麻烦。 给大家推荐一个方便的办法： 点击： 从多个Excel文件中查东西（提取到新表） 在上面输入查找的内容，即可得到结果，在哪个文件，哪个Sheet页，那一行中 还可以将查找出的内容进行导出，是不是很方便 另外复杂条件的查找，可以看这篇文章：https://blog.csdn.net/loubo_001/arti...
VBA 从一个未打开的Excel文件中读取数据到，已打开的文件中.
swfcsunboy
10-19 2万+
Private Sub CommandButton1_Click()Sub CommandButton1_Click()    Call Macro1End SubPrivate Sub CommandButton2_Click()Sub CommandButton2_Click()根据项目名称 获取部门名A8    显示在B8中     c3--c40Dim xDis As Integ
VBA批量处理csv或其他excel文件数据
08-25
2. **打开csv文件**：在VBA中，我们可以使用`Workbooks.Open`方法打开CSV文件，将其内容加载到一个新的或已存在的工作簿中。例如，`Workbooks.Open Filename:="C:\path\to\file.csv"`。 3. **处理数据**：一旦文件...
excel VBA帮助文件.rar_Excel VBA_VBA excel_VBA，Excel_excel_vba exce
09-20
本压缩包文件"excel VBA帮助文件.rar"包含了一个名为"excel VBA帮助文件.CHM"的CHM（Compiled Help Manual）格式的帮助文档，这是一个Windows系统的离线帮助文件，用于提供Excel VBA的详细教程和参考信息。...
易语言以COM对象方式向Excel文件注入VBA代码
07-20
2. **打开Excel文件**：使用`对象.方法`语法调用Excel对象的方法，如`对象.工作簿打开 “文件路径”`，以打开指定的Excel文件。 3. **访问VBA编辑器**：VBA（Visual Basic for Applications）是嵌入在Excel中的编程...
ExcelVBA.rar_excelvba
09-22
在标题“ExcelVBA.rar_excelvba”和描述“ExcelVBA製作的投影片,ExcelVBA製作的投影片”中，我们可以推断出这个压缩包包含了一些使用Excel VBA编写的演示文稿，可能是为了教学或展示Excel VBA的应用。 在压缩包内的...
从未打开的工作簿中取值方法汇总
08-27
从未打开的工作簿中取值方法汇总 1.创建子程度调用 2.以只读方法打开源工作簿 3.JOHN WALKENBACH函数及调用 4.使用GetObject函数  5.隐藏Application对象  6.使用ExecuteExcel4Macro方法  7.使用SQL连接
VBA访问远程Excel
08-31
简单的VBA访问远程Excel程序，原理是将远程文件夹映射到本地盘符。
vb读取xls文件而不打开excel进程 ado数据库方法读取xls
编程技术交流/记录/分享/资源共享
11-10 4742
'Read Excel File Using ADO Public Function Read_Excel _          (ByVal sFile _           As String) As ADODB.Recordset       '函数参数       On Error GoTo fix_err '有错去fix_err那个标签       Dim rs As A
用Excel VBA选择文件、打开文件
sduzhijian的专栏
07-14 5750
介绍如何用VBA选择文件和用VBA打开文件。<br />点击打开文件会弹出一个windows文件打开对话框，在EXCEL中VBA怎么实现这个功能？ 复制内容到剪贴板代码:<br />Sub SelectFile()<br />    Dim FileName As Variant                        <br />     '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant<br />    Dim sFileName As Stri
VBA之不打开读写其它路径下的工作簿
xlbtlmy的博客
08-20 2238
Sub test() Dim wb_data, wb_copy As Workbook Dim fn_data, fn_copy As String fn_data = "C:\Users\xlbtlmy\Desktop\VBA\data.xlsx" fn_copy = "C:\Users\xlbtlmy\Desktop\VBA\copy.xlsx" Set wb_data = GetObject(fn_data) Set wb_copy
不打开Excel获取表中数据方法汇总即将Excel当成数据库
最新发布
qq0705的专栏
09-28 2513
不打开Excel获取表中数据方法汇总，即将Excel当成数据库进行操作
Excel VBA 从外部工作簿取数的5种方法
热门推荐
五维思考
02-23 2万+
'======================================================= '1、循环单元格取数,效率最低，不可取，初学者易犯 '2、区域相等取数 '3、复制粘贴取数 '4、借助数组取数 '————以上4种都需要打开外部工作簿 '5、宏表函数取数（不打开工作簿） '=======================================
不打开Excel文件读取工作表名（ADOX）
神奇的BI
03-03 3823
经常会遇到网友提问，如何实现在不打开Excel工作簿文件的前提下，读取其中的工作表名称。说实话，我不太理解这个需要应用的场景，但是我相信存在的就是合理的，既然有人提问，可能就有其应用的场景。 常规实现思路是障眼法，其实是个欺骗的方法，工作簿文件被打开了，但是用户看不到而已。代码如下。 Sub getTablesNameFake() Dim objApp As Excel.Applicati...
不打开另一个工作簿取它里面的工作表名 （使用数据库引擎）
foreverfall的博客
05-26 848
转自http://blog.csdn.net/laoyebin/article/details/5332990 Sub test() Dim cn As Object, cat As Object, tbl As Object, str$ Set cn = CreateObject("ADODB.Connection") Set cat = CreateObject("A
vba读取excel文件
06-02
是的，您可以使用VBA编程语言读取Excel文件。以下是一些基本的步骤： 1. 打开Excel文件，并访问其中的工作表。您可以使用Workbooks.Open方法打开Excel文件，然后使用Worksheets或Sheets对象访问工作表。 2. 访问单元格和范围。您可以使用Range对象访问单元格和范围。 3. 读取单元格和范围中的值。您可以使用Range.Value或Range.Value2属性读取单元格和范围中的值。 4. 关闭Excel文件。您可以使用Workbook.Close方法关闭Excel文件。 下面是一个简单的示例，演示如何从一个Excel文件中读取数据： ```VB Sub ReadExcelFile() Dim wb As Workbook Set wb = Workbooks.Open("C:\Users\username\Documents\example.xlsx") '打开Excel文件 Dim ws As Worksheet Set ws = wb.Worksheets("Sheet1") '访问工作表 Dim cellValue As Variant cellValue = ws.Range("A1").Value '读取单元格中的值 MsgBox cellValue '显示单元格中的值 Dim rangeValue As Variant rangeValue = ws.Range("A1:B2").Value '读取范围中的值 MsgBox rangeValue(1,1) '显示范围中第一个单元格的值 wb.Close '关闭Excel文件 End Sub ``` 请注意，这只是一个简单的示例，您可以根据需要进行修改和扩展。还有许多其他的VBA函数和方法可以使用，可以帮助您读取和处理Excel文件中的数据。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值