VB基础类
VB 合并excel文件问题?
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我想把一个Excel 文件中的两个sheet(sheet1,sheet2),合并到一个新的Excel文件中的一个sheet中(sheet1).
要合并sheet1,和sheet2的数据区域是不可知的,合并到新文件的sheet1中,
合并后在新文件的sheet1中数据区域是连续的,也就是sheet1数据区域结束后.接着下面就是sheet2的数据区域.可能有点难,哪位大哥写个范例代码看.
获取EXCEL的单元格区域的方法在下面:供大家参考.
Dim A1 As String
Dim A2 As String
Dim Columns As Long
Dim Rows As Long
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\a.xls")
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Rows = xlBook.Worksheets(1).UsedRange.Rows.Count
Columns = xlBook.Worksheets(1).UsedRange.Columns.Count
A1 = xlSheet.UsedRange.Cells(1, 1).Address
A2 = xlSheet.UsedRange.Cells(Rows, Columns).Address
xlSheet.Range(A1, A2).Copy
...
下面怎么写我就不知道了,希望高手赐教.
要合并sheet1,和sheet2的数据区域是不可知的,合并到新文件的sheet1中,
合并后在新文件的sheet1中数据区域是连续的,也就是sheet1数据区域结束后.接着下面就是sheet2的数据区域.可能有点难,哪位大哥写个范例代码看.
获取EXCEL的单元格区域的方法在下面:供大家参考.
Dim A1 As String
Dim A2 As String
Dim Columns As Long
Dim Rows As Long
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\a.xls")
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Rows = xlBook.Worksheets(1).UsedRange.Rows.Count
Columns = xlBook.Worksheets(1).UsedRange.Columns.Count
A1 = xlSheet.UsedRange.Cells(1, 1).Address
A2 = xlSheet.UsedRange.Cells(Rows, Columns).Address
xlSheet.Range(A1, A2).Copy
...
下面怎么写我就不知道了,希望高手赐教.
...全文
相关推荐
VB 合并多个Excel文件到新的Excel中
带有用户名 和动态密码设置 用户名：YXX 密码：月日时分的组合，例如：08141258.
VB调用Excel设置居中、自动调整列宽和合并单元格
这是我自己编写的，绝对能用，可以使Excel表格自动设置居中、自动调整列宽和合并单元格，根据自己需求稍修改下，需要的朋友可以用下
表格合并拆分_表格_excel_vb6excel表格合并汇总_
对excel文件及表格进行合并、查分、汇总等操作
VB读取EXCEL文件
能够读取EXCEL，并且写入。 '读取01.xls中A2到A6，5个单元格的数据 Private Sub Command1_Click() Dim ExcelApp
vb.net 编程读取excel文件中的数据
使用vb.net语言编写的excel文件数据读取和保存，可以实现读取数据的显示，希望大家可以多学习交流下。
