Imports Excel
Imports Microsoft.Office
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objExcel As New Excel._ExcelApplication
Dim objWrkBk As Excel.Workbook
Dim objSht As Excel.Worksheet
Dim sourceName As String
Dim TargetName As String
objWrkBk = GetObject("C:\source_target.xls")
'objWrkBk = objExcel.Workbooks.Open("C:\source_target.xls")
objSht = objWrkBk.Worksheets(1)
For i As Integer = 2 To 650
sourceName = objSht.Cells(i, 4).ToString
TargetName = objSht.Cells(i, 5).ToString
Debug.Print(sourceName)
My.Computer.FileSystem.RenameFile("C:\Attachment\" & sourceName, "C:\Attachment\" & TargetName)
Next i
End Sub
End Class
Προσπαθώ να διαβάσω απο excel και μου σκάει σε αυτήν την γραμμή
objSht = objWrkBk.Worksheets(1)
Κάποιοα βοήθεια;
VB.NET 2008
Keep programming.....