vb读取一个excel的数据，然后复制到另一个excel2里，并把excel2的名称按照时间保存。具体，见补充_百度知道
提问者采纳
on error resume next'开启错误捕捉,出现错误，进入下一行dim myapp as objectdim wk1 as object,wk2 as objectset myapp=CreateObject(&Excel.Application&) myapp.enableevents=false '取消EXCEL程序响应事件myapp.calculation=-4135'取消公式自动更新 myapp.visible=false‘取消EXCEL程序显示set wk1=myapp.workbooks.open(&E:\REPORT.XLS&,,1)'只读打开对应的表格if wk1 is nothing then
msgbox &打开工作表出现错误!& & chr(10) & err.description
exit sub'如果打开工作薄错误，则退出程序endiferr.clearset wk2=myapp.workbooks.add’新增空白工作薄wk1.sheets(&sheet1&).cells.copy’复制内容wk2.sheets(&sheet1&).range(&a1&).PasteSpecial -4163
'xlpastevalues'首先先粘贴数据内容wk2.sheets(&sheet1&).range(&a1&).PasteSpecia
' xlpasteformats‘再粘贴单元格格式wk2.saveas
&D:\& & format(now(),&YYYYMMDDHH&) & &.xls&’保存工作表wk2.close 0wk1.close 0set wk2=nothingset wk1=nothingset myapp=nothing'关闭工作薄，释放对象
提问者评价
建了一个表，试了一下可以，，明天到工地去用实际表试下，，非常感谢
来自团队：
其他类似问题
为您推荐：
其他3条回答
'首先要将“工程－引用”中的Mic… Excel…选中
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject(&Excel.Application&)
On Error Resume Next
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(App.Path & &\1.xls&)
Do While xlApp.Worksheets(&Sheet1&).Range(&A1&).Cells(k, 2) && &&
xlApp.Worksheets(&Sheet1&).Range(&A1&).Cells(k, 3) = Format(Now, &yyyy-mm-dd&)
xlApp.Worksheets(&Sheet1&).Range(&A1&).Cells(k, 4) = Format(Time, &hh:mm&)
xlApp.Worksheets(&Sheet1&).Range(&A1&).Cells(k, 11) = Format(Now, &yyyy-mm-dd&)
xlApp.Worksheets(&Sheet1&).Range(&A1&).Cells(k, 1...
I think you can just use file copy, it doesn't matter excel or not, then add date time for the new excel.
如果能够copy，我还问么，晕死，我打开源excel数据就会立刻更新为现在的数据，我要的是以前的数据，明白，，，！
if it has macro to update the data, then disable it.
不行，我要一直用那个数据的，要一直更新，保存，，，，，每隔1个 小时保存一次
这个问题不是太难 网上有
您可能关注的推广
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您还未登陆，请登录后操作！
EXCEL累加数据
你看看是不是这样，在整个Sheet1里，都能实现自动累加的。也就是你先输入60，然后再输入50时，单元格自动累加变成110
你说的是游戏吧,去"一般问题&游戏",那里有好多高手!!!
注意分类,会得到更满意的回答!!!
大家还关注怎样用宏把一个文件夹下所有的excel文件(每个文件有多个sheet)的数据copy到另外一_百度知道
怎样用宏把一个文件夹下所有的excel文件(每个文件有多个sheet)的数据copy到另外一
怎样用宏把一个文件夹下所有的excel文件(每个文件有多个sheet)的数据copy到另外一个sheet表中。一个一个粘也太菜了吧。
提问者采纳
得看你是要直接复制Sheet，还是把所有Sheet中的数据复制到一个新表中？ Sub main()Dim obj as worksheet,R as longdim sheet as worksheetset sheet=thisworkbook.worksheets.add()sheet.name=&合并&for each obj in thisworkbook.worksheetsif obj.name&&&合并& thenr=sheet.usrange.rows+1obj.userange.copy sheet.range(&A&&R)Next End Sub
提问者评价
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁&& 查看话题
matlab读取excel多个sheet数据，处理并重新保存，高价求教高人
原excel文档中有数百个sheet,&&现在想要matlab读入该文档所有sheet的信息,获取每个sheet的B3和B4位置的数据,再把每个sheet名和对应的B3和B4位置的数据写到一个新的excel里面(保存在一个sheet). 格式是:新excel表格的D6位置对应源文件的第一个sheet名字,E6和F6分别是对应的sheet里面B3和B4位置的数据, 然后D7是下一个sheet名,E7和F7是源文件对应sheet里面B3和B4位置的数据,依次类推。原excel和新文件示意图分别如下图1图2。多谢！
用excel宏就可以了，如果你不知道怎样写宏语言，可以录制宏，看它生成的语句来写。 : Originally posted by asmeng at
用excel宏就可以了，如果你不知道怎样写宏语言，可以录制宏，看它生成的语句来写。 谢谢！我试了试，没整出来，感觉还是编个matlab程序一直放那比较方便 用VBA做也很方便，以后也可以重复利用
需要帮忙加Q： 通过VBA解决，下面是实例代码。假设你有100个工作表，现在把第k个工作表名称取出来放在第101个表的第k行第1列，
把第k个工作表的b3的值放在第k行第2列，把第k个工作表的b4的值放在第k行第3列。
Sub main()到底
Dim i As Integer
For i = 1 To 100
Worksheets(101).Cells(i, 1).Names = Worksheets(i).Name '跨工作表引用
Worksheets(101).Cells(i, 2) = Worksheets(i).Cells(3, 2)& &'跨工作表引用
Worksheets(101).Cells(i, 3) = Worksheets(i).Cells(4, 2)& &'跨工作表引用
End Sub : Originally posted by isityou at
通过VBA解决，下面是实例代码。假设你有100个工作表，现在把第k个工作表名称取出来放在第101个表的第k行第1列，
把第k个工作表的b3的值放在第k行第2列，把第k个工作表的b4的值放在第k行第3列。
Sub main()到底
D ... 抱歉，修改一句，
Worksheets(101).Cells(i, 1).Names = Worksheets(i).Name
Worksheets(101).Cells(i, 1) = Worksheets(i).Name : Originally posted by isityou at
通过VBA解决，下面是实例代码。假设你有100个工作表，现在把第k个工作表名称取出来放在第101个表的第k行第1列，
把第k个工作表的b3的值放在第k行第2列，把第k个工作表的b4的值放在第k行第3列。
Sub main()到底
D ... 我有一个小疑问，如果这100个Worksheets分布在100个excel文件里面又该用什么语句？
另外我对编程语言很感兴趣，有一定的VB、C、Fortran基础，但对宏没有动手实践过，希望能够多多指教 : Originally posted by lixinwen000 at
我有一个小疑问，如果这100个Worksheets分布在100个excel文件里面又该用什么语句？
另外我对编程语言很感兴趣，有一定的VB、C、Fortran基础，但对宏没有动手实践过，希望能够多多指教... 百度不是最好的老师，但一定是最全的老师。
给个简单例子，通过索引。
Sub main()
For i = 1 To 100
Workbooks(101).Worksheets(1).Cells(i, 1) = Workbooks(i).Worksheets(1).Cells(1, 1)
应该能看懂吧。 : Originally posted by isityou at
百度不是最好的老师，但一定是最全的老师。
给个简单例子，通过索引。
Sub main()
For i = 1 To 100
Workbooks(101).Worksheets(1).Cells(i, 1) = Workbooks(i).Worksheets(1).Cells(1, 1)
... 可以领会到语句的意思，VB的语法应该不成问题，我是想系统的学习宏里面用到的关键词，有没有什么比较好的教材或者学习资料可以推荐的？ 教才什么的好说，随便那本看懂了就行，只要有编程基础，查查VBA相关参考书就行。用到就查，没必要记住。 楼主可以百度下，MATLAB读取Excel数据，照葫芦画瓢的事，楼主可以一试！我之前做建模的时候用过，希望有帮助！ 只是要收集数据么？用软件可以的，excel汇总软件 楼主可以在帮助文件力查找actxserver，这个可以解决你的问题！