标题 | 阅读 | 评论 | 转发 | 发布日期 | |
---|---|---|---|---|---|
完美的爹娘完美的妻8 | 1069 | 0 | 0 | 2012-06-21 | |
完美的爹娘完美的妻7 | 813 | 0 | 0 | 2012-06-21 | |
完美的爹娘完美的妻6 | 701 | 0 | 0 | 2012-06-21 | |
完美的爹娘完美的妻5 | 706 | 0 | 0 | 2012-06-21 | |
完美的爹娘完美的妻4 | 527 | 0 | 0 | 2012-06-21 | |
完美的爹娘完美的妻3 | 451 | 0 | 0 | 2012-06-21 | |
完美的爹娘完美的妻1 | 469 | 0 | 0 | 2012-06-21 | |
世事难料 | 579 | 0 | 0 | 2012-05-16 | |
北行的火车完整版 | 714 | 0 | 0 | 2012-05-16 | |
深圳茜坑水库攻略 | 7151 | 0 | 0 | 2012-04-04 | |
托业 | 1091 | 0 | 0 | 2012-03-27 | |
记录下空间的地址,老忘。 | 451 | 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