VBA 读取一个Excel文件中的所有worksheet第一行到另一个Excel文件中
2018-01-15 22:02
2727 查看
'************************************************************************************** '获取一个Excel文件中的所有worksheet中的第一行的数据到指定文件,指定文件第一行为 'worksheet name,第二行开始为worksheet中的第一行的列名 '************************************************************************************* Sub ColloctColumn() Dim wk As Workbook '目标文件 Dim ws As Worksheet '目标文件中的目标worksheet Dim ThisWs As Worksheet '当前文件 Dim ThisAllSheets As Integer '当前文件中worksheet的总和 Dim ThisColCount As Integer '当前文件的总列数 Application.ScreenUpdating = False ThisAllSheets = ThisWorkbook.Sheets.Count Set wk = Application.Workbooks.Open("D:\all.xlsx") '打开一个Excel文件 Set ws = wk.Worksheets(1) '打开的workbook中的第一个worksheet For i = 1 To ThisAllSheets Step 1 '循环worksheet Set ThisWs = ThisWorkbook.Worksheets(i) ThisColCount = ThisWs.UsedRange.Columns.Count ws.Cells(1, i) = ThisWs.Name '将第一行第i列的单元格赋值为当前worksheet的sheet name. For j = 1 To ThisColCount Step 1 '循环columns ws.Cells(j + 1, i) = ThisWs.Cells(1, j) '将当前worksheet的第一行第j列单元格的值赋值给ws 的第j+1行第i列(这里类似转置) Next j Next i wk.Close Application.ScreenUpdating = True End Sub
相关文章推荐
- C#.NET读取一个文件夹下所有excel文件的代码
- 读取指定目录下的所有文件生成一个excel
- VBA中如何打开一个文件夹内的所有EXCEL文件?
- C#.NET读取一个文件目录下所有excel文件
- c++将一个文件夹下的所有文件读取出来放在一个文件中
- java读取excel、txt 文件内容,传到、显示到另一个页面的文本框里面。
- vba 检查一个文件夹中的文件在另一个文件夹中是否存在(不含扩展名)
- 【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格
- VBA读取文件夹下所有文件夹及文件内容,并以树形结构展示
- vba操作两个excel(在一个EXCEL中引用另一个EXCEL的值)
- VBA下弹框打开excel文件并读取数据
- [PHP][Function]实现将一个文件夹下的所有文件及文件夹复制到另一个文件夹里(保持原有结构)[已验证][原创]
- 现在我要写一个定时程序定时读取该目录下的所有txt文件到数据库,并把这些txt文件转移到另外一个目录
- 如何拷贝一个文件夹内的所有文件到另一个地方
- 读取一个EXCEL的文件,然后将其转化成HTML的表格
- Linux下c语言实现将一个目录下的所有文件和目录复制到另一个目录下
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- windows下c++读取一个目录下的所有文件
- C# 递归 把一个文件夹下所有文件复制到另一个文件夹下
- java的JFileChooser上传一个Excel文件并读取该文件的内容