vba打开excel文件遍历sheet的名字和指定单元格的值
2014-12-31 15:29
931 查看
今天项目上有个应用,获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值,并把他们写到固定的sheet中去,看了下,文件比较多,而且每个文件sheet的个数比较多,也不一样,所以打算写个程序来帮我们实现任务,代码很简单,也写的比较死板。欢迎大家给出意见及你的代码:
版权:以上代码由本人开发,版权归 http://www.cnblogs.com/mq0036 个人所有。若用于非商业目的,您可以自由转载,转载请注明出处。
Sub aaaa() Dim sh1, sh2 As Worksheet Dim shName, cellValue As String 'On Error Resume Next Set sh1 = Workbooks(1).Sheets(1) 'Workbooks.Open Filename:="D:\_jack\Finance Report\Report Layout\TA Opex Report 2014.xlsx" Workbooks.Open Filename:="D:\_jack\Finance Report\Report Layout\Rolling PL Template v1 (2).xlsx" For i = 1 To Workbooks(2).Worksheets.Count Workbooks(2).Activate Set sh2 = ActiveWorkbook.Worksheets(i) sh2.Activate n = sh2.Name 'v = sh2.Cells(5, 7).Value 'G5单元格 v = sh2.Cells(4, 3).Value 'C4单元格 Workbooks(1).Activate sh1.Activate sh1.Cells(i, 1) = n sh1.Cells(i, 2) = v Next Workbooks(2).Close End Sub
版权:以上代码由本人开发,版权归 http://www.cnblogs.com/mq0036 个人所有。若用于非商业目的,您可以自由转载,转载请注明出处。
相关文章推荐
- Office 2003 VBA 遍历目录下的Excel批量拷贝Sheet 组成一个大的Excel文件
- 使用VBA读取指定Excel文件指定Sheet指定单元格的内容
- EXCEL-VBA:弹出对话框,打开文件(指定扩展名)
- 遍历指定文件夹,逐个打开每一个excel文件,进行操作
- 请问: vba, excel中打开多个xls文件, 搜索字符串,写入另一个sheet的问题
- VBA遍历当前目录下指定类型的excel文件并复制文件内指定的内容到新表中
- 用VBA生成的EXCEL,打开报如下错误:您尝试打开的文件"1.xls"的格式与文件拓展名指定的格式不一致。。。。
- 将excel用VBA生成指定格式的TXT文件
- Excel VBA 遍历单元格 单元格读取
- (解决办法)ASP.NET导出Excel,打开时提示“您尝试打开文件'XXX.xls'的格式与文件扩展名指定文件不一致
- excel 打开文件提示“您尝试打开的文件xxx.xls的格式与文件扩展名指定的格式不一致”的解决办法
- 【037】Excel 中遍历修改文件(VBA)
- 控制用户打开excel文件后只能查看和编辑指定的Sheet页
- VBA Excel 直接增加任意名字sheet
- 取得指定excel文件内的sheet数及每一个sheet的列数
- 打开指定路径下的Excel文件
- C# 打开指定文件夹或者文件 导入Excel
- 修复打开Excel提示,“您尝试打开的文件的格式与文件扩展名指定的格式不一致,打开前请验证文件示被损坏且来源可信,是否立即打开该文件?”
- excel 2007 打开文件和切换单元格会停顿
- VBA 从一个未打开的Excel文件中读取数据到,已打开的文件中.