+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Worksheet i klasördeki tüm excel dosyalarına kopyalama (/konu-worksheet-i-klasordeki-tum-excel-dosyalarina-kopyalama.html)
Worksheet i klasördeki tüm excel dosyalarına kopyalama - makarax - 28/07/2009
Merhaba Üstatlar. Excel dosyamda bulunan bulunan bir worksheet i belirtiğim klasör içindeki (yaklaşık 100 adet)tüm excellerin içine yapıştırmak istiyorum. Böyle bir macro yapabilir mi? yardımcı olursanız sevinirim.
Cvp: Worksheet i klaordeki tüm excel dosyalarına kopyalama - esrefigit - 28/07/2009
bu sadece klasörden seçilene kopyalama
Private Sub CommandButton1_Click()
Dim CurWkbk As Workbook
Dim newWkbk As Workbook
Dim ws As Worksheet
Set CurWkbk = ActiveWorkbook
FNameAndPath = Application.GetOpenFilename _
(FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Copyalıyoruz")
If FNameAndPath = False Then Exit Sub
Set newWkbk = Workbooks.Open(Filename:=FNameAndPath)
CurWkbk.Sheets(1).Copy after:=newWkbk.Sheets(1)
End Sub
burdaki (1) ilk 1 içinde olduğun actif sayfanın birinci sayfası diğeride diğerinin birinci sayfası
Cvp: Worksheet i klasördeki tüm excel dosyalarına kopyalama - makarax - 28/07/2009
Teşekkürler hocam. Bu makro ile hepsini teker teker seçerek yapılabiliyor. Buda biraz hızlandırır. eline sağlık
Cvp: Worksheet i klasördeki tüm excel dosyalarına kopyalama - mehmetdemiral - 16/08/2009
Konu taşınmıştır.