| 标题 | 阅读 | 评论 | 转发 | 发布日期 | |
|---|---|---|---|---|---|
| 完美的爹娘完美的妻8 | 1093 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻7 | 847 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻6 | 743 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻5 | 733 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻4 | 581 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻3 | 515 | 0 | 0 | 2012-06-21 | |
| 完美的爹娘完美的妻1 | 496 | 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
