| 标题 | 阅读 | 评论 | 转发 | 发布日期 | |
|---|---|---|---|---|---|
| 完美的爹娘完美的妻8 | 1064 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻7 | 807 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻6 | 690 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻5 | 680 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻4 | 519 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻3 | 443 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻1 | 462 | 0 | 0 | 2012-06-21 |
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
