ACCESS'E EXCEL IMPORT ETME BUTONU

30/06/2012, 14:20

gurcagy

MERHABA BİR Access PROJEM VAR. Excel IMPORT ETME BUTONU OLACAK VE KULLANICI BUTONA TIKLAYIP "İSTEDİĞİ Excel DOSYASINI" IMPORT EDECEK. BUNU FORM OLUŞTURARAK Vba İLE YAPACAĞIM GALİBA. YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDİYORUM.
30/06/2012, 16:53

maytas

Merhaba.
Eğer seçilecek Excel dosyası belli ise:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tablo_Adi", "Excel_Dosyasi_Yolu_ve_Adi", True

Seçilecek Excel dosyasını "Dosya Aç" dialog kutusu vasıtası ile seçmek için:

Private Secilen As String
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFilename) As Long
Private Type OpenFilename
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
iFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Function DosyaAcFonksiyonu() As String
Dim Secilenin As OpenFilename
Secilenin.lStructSize = Len(Secilenin)
Secilenin.hwndOwner = hwnd
Secilenin.lpstrFilter = "Excel Dosyaları (*.xls*)" & Chr$(0) & "*.xls" & Chr$(0) & Chr(0) & Chr(0)
Secilenin.lpstrFile = String(256, 0)
Secilenin.nMaxFile = 255
Secilenin.lpstrTitle = "Dosya Aç"
Secilenin.Flags = &H800000 + &H1000 + &H8 + &H4
GetOpenFileName Secilenin
If Mid(Secilenin.lpstrFile, 1, 1) <> Chr(0) Then DosyaAcFonksiyonu = Secilenin.lpstrFile
Secilen = Secilenin.lpstrFile
End Function

Private Sub Komut0_Click()
Dim Dosya As String
Dosya = DosyaAcFonksiyonu
If Dosya <> "" Then DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tablo_Adi", Dosya, True
End Sub

Yalnız her iki durumda da veri alınacak tablo adı belli olmalı.
Veri alınacak tablo Access veritabanında yok ise oluşturulur, var ise veriler veritabanına eklenir, yalnız alınacak Excel tablosundaki ve eklenecek veritabanındaki alan başlıkları farklı olmamalı, yoksa hata verir.
09/03/2021, 16:36

kanlitoprak

Bu kodu butonun tıklandığı olayına mı koyacağız acaba dosya adından başka değiştireceğimiz yer varmıdır?


Seçilecek Excel dosyasını "Dosya Aç" dialog kutusu vasıtası ile seçmek için:

Private Secilen As String
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFilename) As Long
Private Type OpenFilename
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    iFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Private Function DosyaAcFonksiyonu() As String
    Dim Secilenin As OpenFilename
    Secilenin.lStructSize = Len(Secilenin)
    Secilenin.hwndOwner = hwnd
    Secilenin.lpstrFilter = "Excel Dosyaları (*.xls*)" & Chr$(0) & "*.xls" & Chr$(0) & Chr(0) & Chr(0)
    Secilenin.lpstrFile = String(256, 0)
    Secilenin.nMaxFile = 255
    Secilenin.lpstrTitle = "Dosya Aç"
    Secilenin.Flags = &H800000 + &H1000 + &H8 + &H4
    GetOpenFileName Secilenin
    If Mid(Secilenin.lpstrFile, 1, 1) <> Chr(0) Then DosyaAcFonksiyonu = Secilenin.lpstrFile
    Secilen = Secilenin.lpstrFile
End Function

Private Sub Komut0_Click()
    Dim Dosya As String
    Dosya = DosyaAcFonksiyonu
    If Dosya <> "" Then DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tablo_Adi", Dosya, True
End Sub

Yalnız her iki durumda da veri alınacak tablo adı belli olmalı.
Veri alınacak tablo Access veritabanında yok ise oluşturulur, var ise veriler veritabanına eklenir, yalnız alınacak Excel tablosundaki ve eklenecek veritabanındaki alan başlıkları farklı olmamalı, yoksa hata verir.
[/quote]
09/03/2021, 16:48

kanlitoprak

Ayrıca ben formda bir buton yaptım tıklandığı olayına

Private Sub Komut0_Click()
CurrentDb.Execute “Delete *From tablo_adi”
CurrentDb.Execute “ INSERT INTO tablo_adi [kimlik],[tarihi]) SELECT M5. [kimlik],M5.[tarihi] FROM [M5]”
Form.Requvery
End Sub

Bunu yazdın M5=bağlı Excel tablom
Verileri güzelce aktarıyorum. Ancak bağlı tablonun çektiği Excel dosyasının yolu başka pc de bulamıyor.Bunu kullanıcıya seçtirmek isterim. Yardımlarınızı bekliyorum.