如何在VB一段程序中打开两个EXCEL-CSDN论坛

⋅如何在打开对话框打开一个EXCEL并操作 ⋅急求大神给我看看此段代码 ⋅这一段代码中为什么T始终等于31啊 更多帖子 关注私信空间博客 AwayHence 本版专家分：0 结帖率 92.31%

Dim excel_App As Excel.Application

Dim excel_Book As Excel.Workbook

Dim excel_sheet As Excel.Worksheet











Set excel_App = CreateObject("Excel.Application")



excel_App.Visible = False

Set excel_Book = excel_App.Workbooks.Open("C:\Users\WR\Desktop\A文件.xlsx")

Set excel_sheet = excel_Book.Worksheets("Sheet1")

这是我打开A文件需要写的代码，那么如果我还需要打开B文件，还需要重新定义么？还需要重新SET么。
比如A和B格式一模一样，我需要将A中的第（2,3）号格子的数字赋值给a(2,3)
再将B的(2,3)的数字赋值给b(2,3)最后进行比较。但是如果我打开了两个文件，怎么分别赋值给a和b而不搞混呢？
求大神教我怎么写，这段代码我写出来一直有问题。

0 2017-03-31 16:17:43

回复数 6 只看楼主引用举报楼主

⋅管理员，论坛服务器被搬到朝鲜了吗？

⋅贪吃蛇小游戏

⋅挺粗糙的一个画图小程序

更多帖子

关注私信空间博客

笨狗先飞

本版专家分：12442

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

黄花 2018年7月硬件/嵌入开发大版内专家分月排行榜第二
2017年6月 VB大版内专家分月排行榜第二



Dim excel_App As Excel.Application

Dim excel_Book_A As Excel.Workbook

Dim excel_sheet_A As Excel.Worksheet

 

Dim excel_Book_B As Excel.Workbook

Dim excel_sheet_B As Excel.Worksheet

 

Set excel_App = CreateObject("Excel.Application")

 

excel_App.Visible = False

Set excel_Book_A = excel_App.Workbooks.Open("C:\Users\WR\Desktop\A文件.xlsx")

Set excel_Book_B = excel_App.Workbooks.Open("C:\Users\WR\Desktop\B文件.xlsx")

Set excel_sheet_A = excel_Book_A.Worksheets("Sheet1")

Set excel_sheet_B = excel_Book_B.Worksheets("Sheet1")

好像是这样子，自己试试不就知道了？

0 2017-03-31 16:49:08

只看TA 引用举报 #1 得分 40

⋅【源码】无聊……发份源码：VB6运用【内联汇编代码 + 轻量级COM对象】实现的移位操作 ⋅【源码】VB6中高效的内存访问利器 ⋅遇到两个问题：1是命名管道通讯，客户端连接上了，但写数据“无效句柄”错误；2是用API创建的控件，改变字体颜色和背景颜色起不到作用。 更多帖子 关注私信空间博客 舉杯邀明月 本版专家分：59203 红花 2019年1月 VB大版内专家分月排行榜第一 2018年12月 VB大版内专家分月排行榜第一 2018年11月 VB大版内专家分月排行榜第一 2018年10月 VB大版内专家分月排行榜第一 2018年7月 VB大版内专家分月排行榜第一 2018年6月 VB大版内专家分月排行榜第一 2018年5月 VB大版内专家分月排行榜第一 2018年4月 VB大版内专家分月排行榜第一 2018年3月 VB大版内专家分月排行榜第一 2018年2月 VB大版内专家分月排行榜第一 2018年1月 VB大版内专家分月排行榜第一 2017年9月 VB大版内专家分月排行榜第一 2017年8月 VB大版内专家分月排行榜第一 2017年7月 VB大版内专家分月排行榜第一 2017年6月 VB大版内专家分月排行榜第一 2017年5月 VB大版内专家分月排行榜第一 2017年4月 VB大版内专家分月排行榜第一 2016年11月 VB大版内专家分月排行榜第一 2016年8月 VB大版内专家分月排行榜第一 2016年7月 VB大版内专家分月排行榜第一 2013年12月 VB大版内专家分月排行榜第一 2013年10月 VB大版内专家分月排行榜第一 2013年9月 VB大版内专家分月排行榜第一 2008年5月 VB大版内专家分月排行榜第一 黄花 2017年12月 VB大版内专家分月排行榜第二 2017年11月 VB大版内专家分月排行榜第二 2017年3月 VB大版内专家分月排行榜第二 2016年12月 VB大版内专家分月排行榜第二 2016年10月 VB大版内专家分月排行榜第二 2013年11月 VB大版内专家分月排行榜第二 蓝花 2019年5月 VB大版内专家分月排行榜第三 2016年3月 VB大版内专家分月排行榜第三 2012年9月 VB大版内专家分月排行榜第三: 你需要定义的是另外的Excel.Workbook、Excel.Worksheet变量。

用你“已经有的”excel_App 直接打开新的工作簿文件就行了。
别说打开两个，就是你想打开20个都行。

0 2017-03-31 16:50:09

只看TA 引用举报 #2 得分 0

⋅如何在打开对话框打开一个EXCEL并操作 ⋅急求大神给我看看此段代码 ⋅这一段代码中为什么T始终等于31啊 更多帖子 关注私信空间博客 AwayHence 本版专家分：0

引用 1 楼 bakw 的回复:



Dim excel_App As Excel.Application

Dim excel_Book_A As Excel.Workbook

Dim excel_sheet_A As Excel.Worksheet

 

Dim excel_Book_B As Excel.Workbook

Dim excel_sheet_B As Excel.Worksheet

 

Set excel_App = CreateObject("Excel.Application")

 

excel_App.Visible = False

Set excel_Book_A = excel_App.Workbooks.Open("C:\Users\WR\Desktop\A文件.xlsx")

Set excel_Book_B = excel_App.Workbooks.Open("C:\Users\WR\Desktop\B文件.xlsx")

Set excel_sheet_A = excel_Book_A.Worksheets("Sheet1")

Set excel_sheet_B = excel_Book_B.Worksheets("Sheet1")

好像是这样子，自己试试不就知道了？

这样之后如何分别赋值给a和b呢

0 2017-03-31 16:54:13

只看TA 引用举报 #3 得分 0

⋅如何在打开对话框打开一个EXCEL并操作 ⋅急求大神给我看看此段代码 ⋅这一段代码中为什么T始终等于31啊 更多帖子 关注私信空间博客 AwayHence 本版专家分：0

引用 3 楼 hjgsh221 的回复:

Quote: 引用 1 楼 bakw 的回复:



Dim excel_App As Excel.Application

Dim excel_Book_A As Excel.Workbook

Dim excel_sheet_A As Excel.Worksheet

 

Dim excel_Book_B As Excel.Workbook

Dim excel_sheet_B As Excel.Worksheet

 

Set excel_App = CreateObject("Excel.Application")

 

excel_App.Visible = False

Set excel_Book_A = excel_App.Workbooks.Open("C:\Users\WR\Desktop\A文件.xlsx")

Set excel_Book_B = excel_App.Workbooks.Open("C:\Users\WR\Desktop\B文件.xlsx")

Set excel_sheet_A = excel_Book_A.Worksheets("Sheet1")

Set excel_sheet_B = excel_Book_B.Worksheets("Sheet1")

好像是这样子，自己试试不就知道了？

这样之后如何分别赋值给a和b呢

哦我知道了，我去试一试

0 2017-03-31 16:55:08

只看TA 引用举报 #4 得分 0

⋅insert时，将某字段值保存到文件，字段值替换为文件路径。 ⋅求一SQL，指定条数，分组标识 ⋅二个字段，如果交叉相同，取一行，求SQL 更多帖子 关注私信空间博客 vansoft 本版专家分：17359

引用 1 楼 bakw 的回复:



Dim excel_App As Excel.Application

Dim excel_Book_A As Excel.Workbook

Dim excel_sheet_A As Excel.Worksheet

 

Dim excel_Book_B As Excel.Workbook

Dim excel_sheet_B As Excel.Worksheet

 

Set excel_App = CreateObject("Excel.Application")

 

excel_App.Visible = False

Set excel_Book_A = excel_App.Workbooks.Open("C:\Users\WR\Desktop\A文件.xlsx")

Set excel_Book_B = excel_App.Workbooks.Open("C:\Users\WR\Desktop\B文件.xlsx")

Set excel_sheet_A = excel_Book_A.Worksheets("Sheet1")

Set excel_sheet_B = excel_Book_B.Worksheets("Sheet1")

好像是这样子，自己试试不就知道了？

正解。受内存限制，打开多少都无所谓。

0 2017-04-02 09:40:42

只看TA 引用举报 #5 得分 0

⋅如何在打开对话框打开一个EXCEL并操作 ⋅急求大神给我看看此段代码 ⋅这一段代码中为什么T始终等于31啊 更多帖子 关注私信空间博客 AwayHence 本版专家分：0

引用 2 楼 Chen8013 的回复:

你需要定义的是另外的Excel.Workbook、Excel.Worksheet变量。

用你“已经有的”excel_App 直接打开新的工作簿文件就行了。
别说打开两个，就是你想打开20个都行。

另外我还有一个问题，如果我对A表格的数据进行改变比如



a(i,j)=excel_sheet.cells(i,j)

a(i,j)=2a(i,j)

excel_sheet.cell(i,j)=a(i,j)

如果再读取一次c(i,j)=excel_sheet(i,j)
那么 c(i,j)是原来的值还是乘以了2倍的值啊

0 2017-04-10 16:19:46

只看TA 引用举报 #6 得分 0

如何在VB一段程序中打开两个EXCEL [问题点数：40分，结帖人hjgsh221]