[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
	[TABLO] Excel Aktarımı	kahramanselim	6	186	06-04-2024, 21:11 Son Mesaj: kahramanselim
	[FONKSiYON] Bölünmüş Veri Tabanın Yedeğini Alma	webtenoyna	1	97	19-02-2024, 01:48 Son Mesaj: dsezgin
	[VBA] Web Den Resim Linklerini Alma	hedefkaya	4	139	12-11-2023, 02:32 Son Mesaj: dsezgin
	Ortalama Alma	snapper	13	237	30-09-2023, 18:30 Son Mesaj: dsezgin
	[VBA] Webden Veri Alma	idrisy	1	141	26-08-2023, 04:15 Son Mesaj: dsezgin
	Döngü Ile Veri Alma	ates2014	5	172	26-08-2023, 01:38 Son Mesaj: halily
	Accesste Txt Den Veri Alma	.Sude.	4	268	22-06-2023, 19:52 Son Mesaj: dsezgin
	Excel Birleştir Ve Süz	Bora34	6	793	16-02-2023, 18:33 Son Mesaj: Bora34

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL