- Katılım
- 22 Temmuz 2005
- Mesajlar
- 228
- Excel Vers. ve Dili
- Excel-2003 Türkçe
- Altın Üyelik Bitiş Tarihi
- 03.03.2021
Slm arkadaşlar ben veri aktarma için aşağıdaki kodu uyguladım.
Private Sub CommandButton1_Click()
Dim NewXL As Excel.Application
Dim DataWB As String
Dim NoA As Long
Dim Wb As Workbook
Set NewXL = New Excel.Application
NewXL.Visible = False
DataWB = ThisWorkbook.Path & Application.PathSeparator & "C:Ekders\Puantaj.xls"
Set Wb = NewXL.Workbooks.Open(DataWB)
NoA = Wb.Sheets(1).Cells(65536, 1).End(xlUp).Row + 1
With Wb.Sheets(1)
.Range("A" & NoA) = Sheets(1).Range("A2")
.Range("B" & NoA) = Sheets(1).Range("B2")
.Range("C" & NoA) = Sheets(1).Range("C2")
.Range("D" & NoA) = Sheets(1).Range("D2")
.Range("E" & NoA) = Sheets(1).Range("E2")
.Range("F" & NoA) = Sheets(1).Range("F2")
.Range("G" & NoA) = Sheets(1).Range("G2")
End With
NewXL.Workbooks(Dir(DataWB)).Close SaveChanges:=True
Set Wb = Nothing
Set NewXL = Nothing
End Sub
siyah yazılı bölümde hata oluştu onu nasıl çözebilirm. Yardımcı olurmusunuz.
Ekli Dosyadada görüleceği gibi buradaki Puntj adlı dosyanın sayfa1 ini C:\Ekders Klasöründeki Puantaj dosyasının Sayfa 1 ine atmak istiyorum Saygılar
Private Sub CommandButton1_Click()
Dim NewXL As Excel.Application
Dim DataWB As String
Dim NoA As Long
Dim Wb As Workbook
Set NewXL = New Excel.Application
NewXL.Visible = False
DataWB = ThisWorkbook.Path & Application.PathSeparator & "C:Ekders\Puantaj.xls"
Set Wb = NewXL.Workbooks.Open(DataWB)
NoA = Wb.Sheets(1).Cells(65536, 1).End(xlUp).Row + 1
With Wb.Sheets(1)
.Range("A" & NoA) = Sheets(1).Range("A2")
.Range("B" & NoA) = Sheets(1).Range("B2")
.Range("C" & NoA) = Sheets(1).Range("C2")
.Range("D" & NoA) = Sheets(1).Range("D2")
.Range("E" & NoA) = Sheets(1).Range("E2")
.Range("F" & NoA) = Sheets(1).Range("F2")
.Range("G" & NoA) = Sheets(1).Range("G2")
End With
NewXL.Workbooks(Dir(DataWB)).Close SaveChanges:=True
Set Wb = Nothing
Set NewXL = Nothing
End Sub
siyah yazılı bölümde hata oluştu onu nasıl çözebilirm. Yardımcı olurmusunuz.
Ekli Dosyadada görüleceği gibi buradaki Puntj adlı dosyanın sayfa1 ini C:\Ekders Klasöründeki Puantaj dosyasının Sayfa 1 ine atmak istiyorum Saygılar