[VBA] Excel Den Veri Alma 2003

estapan · 19-05-2017, 17:30

Merhaba,

Excel dosyam var bu dosyada stok ürünleri var. Bu ürünleri toplu olarak Access e tablo olarak aktarmak istiyorum (Stok_Yeni)
ürünleri aktarırken dosyada aynı stoktan varsa güncelleme yapmasını (adet ve fiyat alanlarını), aynı stoktan yoksa eklemesini istiyorum.
bunu makroyla yapabiliyorum fakat makroda direk dosya yolu yazılı Excel dosyasını alıyor benim istediğim dosya yolunu seçtirmek.

sitede buna benzer konular var fakat ofis 2003 olarak bulamadım.

Konuyla alakalı yardımlarınızı bekliyorum

dsezgin · 19-05-2017, 20:19

Sn estapan

benim istediğim dosya yolunu seçtirmek.

Visual Basic
Dim dlg As FileDialog
Dim Yer As Variant
Dim DosyaAdi As String
Dim SecDosya As Variant
Set Yer = Application.FileDialog(msoFileDialogFilePicker)
With Yer 
    .AllowMultiSelect = False
    .ButtonName = "Resim Seç"
    .Filters.Add "Excel Dosyalari", "*.xls; *.xlsx;"
    .FilterIndex = 0
    .InitialFileName = Environ("UserProfile") & "\My Documents\*.xls;*.xlsx;*"
    .InitialView = msoFileDialogViewThumbnail
    .Title = "Excel Dosyasi Seciniz"
        If .Show = True Then
            For Each SecDosya In .SelectedItems
                     DosyaAdi = SecDosya 
            Next SecDosya 
      End If
End With

Excel dosyam var bu dosyada stok ürünleri var. Bu ürünleri toplu olarak Access e tablo olarak aktarmak istiyorum (Stok_Yeni)

Visual Basic
DoCmd.TransferSpreadsheet acLink, IIf(mid(DosyaAdi, InStr(1, DosyaAdi, ".") + 1, Len(DosyaAdi)) = "xls", 8, 9), "Stok_Yeni", DosyaAdi, True

ürünleri aktarırken dosyada aynı stoktan varsa güncelleme yapmasını (adet ve fiyat alanlarını), aynı stoktan yoksa eklemesini istiyorum.
Baglanan excel dosyasini sorgu ile gruplayip, fiyatlarini max, min ile teke indirip, ekleme sorgusuna cevirin ve SQL'i

Visual Basic
Currentdb.execute "Insert Into ......."

VBA da ki satirlari tek dugme altinda toplamaniz ile otomatik aktarim islevine elde edebilirsiniz.

Bagli excel dosyasini silmek icin

Visual Basic
Docmd.deleteobject acquery, DosyaAdi

ile proseduru sonlandirabilirsiniz.

estapan · 20-05-2017, 16:25

öncelikle cevabınız için teşekkürler
2003 de ".xxls" olmadığı için hata verdi onu silince düzeldi dosya seçme işlemini gerçekleştirdim fakat alttaki komutta IIF kısmında hata verdi

DoCmd.TransferSpreadsheet acLink, IIf(DosyaAdi, 1, InStr(1, DosyaAdi, ".") + 1, Len(DosyaAdi) = "xls", 9, 12), "Stok_Yeni", DosyaAdi, True

dsezgin · 20-05-2017, 18:18

Sn estapan

Visual Basic
DoCmd.TransferSpreadsheet acLink, IIf(mid(DosyaAdi, InStr(1, DosyaAdi, ".") + 1, Len(DosyaAdi)) = "xls", 8, 9), "Stok_Yeni", DosyaAdi, True

deneyebilirsiniz.

estapan · 20-05-2017, 22:08

aşağıdaki hata mesajını veriyor

dsezgin · 21-05-2017, 01:00

Sn estapan;

9, 12 yerine 8, 9 olmali. Dosya tip sonlarini yazmisim. Benzer hallerde islem komutu uzerine gelip secin ve F1 tusu ile MicroSoft'un yardim sayfasindan da sorunu cozebilirsiniz.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Yaklaşan Tarihte Uyarı Alma	xosmaner	3	348	14-11-2025, 21:53 Son Mesaj: özgülapt
	Alt Rapordaki Sayfa Toplamını Alma	tekinuy	6	418	08-10-2025, 22:26 Son Mesaj: tekinuy
	[SORGU] Soldan 3 Değere Göre Toplam Alma	karacahil	2	347	14-05-2025, 17:03 Son Mesaj: karacahil
	[RAPOR] Raporda Hyperlink çıktı Alma	ulsogr	4	375	09-01-2025, 10:08 Son Mesaj: ulsogr
	[TABLO] Tablodan Rapor Alma	vefa1982	11	603	28-10-2024, 01:53 Son Mesaj: dsezgin
	Sorguda Tarihler Arası Veri Alma	metınaycıcek	8	641	18-07-2024, 14:28 Son Mesaj: metınaycıcek
	Sürekli Formda Alt Toplam Alma	ates2014	2	359	10-07-2024, 09:33 Son Mesaj: ates2014
	Hafızaya Alma	evren89	1	343	01-06-2024, 19:42 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL