Chinaunix首页 | 论坛 | 博客
  • 博客访问: 37462
  • 博文数量: 14
  • 博客积分: 467
  • 博客等级: 一等列兵
  • 技术积分: 142
  • 用 户 组: 普通用户
  • 注册时间: 2010-02-02 13:14
文章分类

全部博文(14)

文章存档

2013年(1)

2012年(13)

我的朋友
博文列表
标题:
标题 阅读 评论 转发 发布日期
完美的爹娘完美的妻8 1038 0 0 2012-06-21
完美的爹娘完美的妻7 776 0 0 2012-06-21
完美的爹娘完美的妻6 645 0 0 2012-06-21
完美的爹娘完美的妻5 652 0 0 2012-06-21
完美的爹娘完美的妻4 490 0 0 2012-06-21
完美的爹娘完美的妻3 417 0 0 2012-06-21
完美的爹娘完美的妻1 431 0 0 2012-06-21
世事难料 545 0 0 2012-05-16
北行的火车完整版 687 0 0 2012-05-16
深圳茜坑水库攻略 7024 0 0 2012-04-04
托业 1034 0 0 2012-03-27
记录下空间的地址,老忘。 422 0 0 2012-03-07
给主人留下些什么吧!~~

beijinglb2013-04-19 00:04

Sub copysheet3()
Dim ip As String

Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("D:\book\office\excel\VBA1.xlsx")

Dim sheetx As Excel.Worksheet
Set sheetx = xlBook.Worksheets(1)
ip = sheetx.Cells(1, 2)
Sheet1.Cells(1.1) = ip

End Sub

回复  |  举报

beijinglb2013-04-19 00:04

Sub copyAll()

fname = "D:\book\office\excel\VBA1.xlsx"        '需要复制的excel文件地址及文件名,你自己修改
Set d = GetObject(fname)      '打开文件
d.Sheets("link").Cells.Copy ActiveSheet.Cells(1, 1)    '将sheet1完全复制到当前表
d.s
d.Close  '关闭文件
Set d = Nothing
End Sub

回复  |  举报
留言热议
请登录后留言。

登录 注册