Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub GetData()
- Dim RowNumber As Integer
- Dim ColNumber As Integer
- For RowNumber = 1 To 100
- For ColNumber = 1 To 104
- With Cells(RowNumber, ColNumber)
- .Formula = "='C:Documents and SettingsadminDesktop[data.xls]Sheet1'!" & Cells(RowNumber, ColNumber).Address
- '.Formula = "='C:Documents and SettingsadminDesktop[data1.csv]Sheet1'!" & Cells(RowNumber, ColNumber).Address
- .Value = .Value
- End With
- Next
- Next
- End Sub
- Sub WhyNotOpen()
- Dim Wb1 As Workbook
- Dim Wb2 As Workbook
- With Application
- .ScreenUpdating = False
- .EnableEvents = False
- End With
- Set Wb1 = ThisWorkbook
- Set Wb2 = Workbooks.Open("C:tempdata.csv", False, True)
- Wb1.Sheets(1).Range("A1:CV104").Value = Wb2.Sheets(1).Range("A1:CV104").Value
- Wb2.Close False
- With Application
- .ScreenUpdating = True
- .EnableEvents = True
- End With
- End Sub
- Sub GetData()
- Dim wb as workbook
- Dim RowNumber As Integer
- Dim ColNumber As Integer
- set wb = application.workbooks.open("C:Documents and SettingsadminDesktopdata1.csv")
- For RowNumber = 1 To 100
- For ColNumber = 1 To 104
- With Cells(RowNumber, ColNumber)
- .Formula = "='[data1.csv]Sheet1'!" & Cells(RowNumber, ColNumber).Address
- .Value = .Value
- End With
- Next
- Next
- End Sub
- .Formula = "='" &"[" & wb.Name & "]" & wb.Sheets(1).Name &"'!" & Cells(RowNumber, ColNumber).Address
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement