| 标题 | 阅读 | 评论 | 转发 | 发布日期 | |
|---|---|---|---|---|---|
| 完美的爹娘完美的妻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 |
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
