Excel 关于新建xls文件 新建sheet 合并sheet的VBA操作代码
Sub 合并一个文件夹下全部xls文件中sheet到一个xls的sheet()
workDir = ThisWorkbook.Path '当前xls文件所在的目录绝对路径
'MsgBox workDir, 0, "workDir"
bookname = ThisWorkbook.Name '当前xls文件名
'MsgBox bookname, 0, "bookname"
file = Dir(workDir & "\*.xls") 'workDir目录下第一个文件名
'MsgBox file, 0, "file"
Application.ScreenUpdating = False
Do While file <> ""
If file <> bookname Then
Set wk2 = Workbooks.Open(workDir & "\" & file)
For Each sht2 In wk2.Sheets
'MsgBox sht2.Name, 0, "Sheets(j).Name"
X = Range("A65536").End(xlUp).Row + 1
Cells(X, 1) = sht2.Name
sht2.Range("D2").Copy Cells(X, 2)
Next
wk2.Close False
End If
file = Dir '若第二次调用 Dir 函数,但不带任何参数,则函数将返回同一目录下的下一个 *.xls 文件
Loop
Application.ScreenUpdating = True
MsgBox "合并完毕!", vbInformation, "提示"
End Sub
---------------------------------------------------------------------------------------------
Sub 将一个sheet中的域名IP映射写到一个新的xls文件中,每个sheet对应一个域名()
Set sh = ActiveSheet
r = sh.Range("a65536").End(xlUp).Row'总共域名的个数
Workbooks.Add.SaveAs ThisWorkbook.Path & "\" & r & "个工作表的工作薄.xls"
For i = 1 To r
Set mySheet = ActiveWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count))
mySheet.Name = sh.Range("a" & i).Value '域名
mySheet.Range("d2") = sh.Range("b" & i).Value 'IP地址
'MsgBox sh.Range("a" & i).Value, 0, "aaa"
'MsgBox mySheet.Name, 0, "aaa"
mySheet.Range("a1:f1").EntireColumn.AutoFit '根据内容自动调整列宽
Next
'删除新建xls文件时默认的三个空sheet
Application.DisplayAlerts = False '删除时不用确认
Worksheets("sheet1").Delete
Worksheets("sheet2").Delete
Worksheets("sheet3").Delete
End Sub
----------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
相关文章
- php 使用table方式导出excel文件
- unity3d 下操作excel 与打印
- python读取excel表
- Office EXCEL 2010如何启用宏编辑器,打开VB编辑器
- Excel日常操作
- 解决openpyxl读取excel失败后,无法删除此excel的问题
- python-操作excel数据文件
- Excel表格文本格式的数字和数字格式如何批量转换
- excel怎么设置密码保护?Excel文件添加密码保护教程
- Python 帮同事用pandas快速筛选Excel文件
- Python Excel表格列数的字母表达与数字的相互转换
- C# 获取Excel工作薄中Sheet页(工作表)名集合
- SAP CRM和Cloud for Customer的Excel导出功能比较
- 【原创】.NET读写Excel工具Spire.Xls使用(2)Excel文件的控制
- 成功解决Excel表格打开csv文件乱码问题
- Computer:如何将表格以正确地姿势从Excel文件复制粘贴到word文件中(保证两个数据源一致)
- Python可视化数据分析08、Pandas_Excel文件读写
- C#读取excel文件到datatable
- java 操作excel 文件
- 前端必备技能知识:JS导出Blob流文件为Excel表格、Vue.js使用Blob的方式实现excel表格的下载(流文件下载)
- JAVA操作Excel表格:方法二:POI的使用:Excel实战之POI创建excel文件(高版本.xlsx)
- 〖Python自动化办公篇⑬〗- Excel 文件自动化 - 写入 excel 数据(xlsxwriter)
- 使用jQuery OCUpload实现excel文件一键上传功能
- Excel 2016 突然打开别人发过来的2个excel文件就关闭打不开,打开电脑上其他excel文件正常