Excel den tablo güncelleme

[tamer42]

Merhabalar;

Bir excel dosyasından (Sheet2) direkt import ettiğim bir tablom (MyTable1) var...

"ExcelToMDB.xls" >> import >>> "MyDB.mdb" .

Access' e import ettikten sonra; Bu excel dosyasında bazı alanlarda (tüm alanlarda değil, örn: 5 alandan birinde ) değişiklik yapılmaktadır;

excel dosyasındaki bu değişiklikleri belli aralıklarla Access ortamında [MyTable1] üzerinde güncellemek istiyorum.


-------------------------------------------

i = 2
Do While Len(Range("A" & i).Value) > 0

With rs
.Edit

.Fields("Firma") = Range("A" & i).Value
.Fields("Borc") = Range("B" & i).Value
.Fields("Tarih") = Range("C" & i).Value
.Fields("Not") = Range("D" & i).Value

.Update

End With

i=i+1
Loop

-------------------------------------------
gibi....

bu konuda yardımcı olabilirmisiniz.

İyi Çalışmalar dilerim.

 

[modalı]

Sayın tamer42,

Dış veri al yerine tablo bağlayı kullanırsanız bu değişiklikleri yapmaya gerek yok. Exceldeki her değişiklik otomatik olarak Access tarafından da algılanacaktır.

İyi çalışmalar

 

[tamer42]

Sn modalı,

Dış veri al yerine tablo bağlayı kullanırsanız bu değişiklikleri yapmaya gerek yok.

Tablo bağlayı zaten kullanıyorum, yalnız tam istediğim gibi olmuyor, istediğim değişiklikleri yapamıyorım.
excel dosyası server altında, ofis dışında zor oluyor.

bu şekilde birde birincil anahtar tanımlayamadım. Tabloları ilişkilendirmede ve sorgularda sıkıntı oluyor,


İyi çalışmalar.

 

[shogan]

Sn modalı,





Tablo bağlayı zaten kullanıyorum, yalnız tam istediğim gibi olmuyor, istediğim değişiklikleri yapamıyorım.
excel dosyası server altında, ofis dışında zor oluyor.

bu şekilde birde birincil anahtar tanımlayamadım. Tabloları ilişkilendirmede ve sorgularda sıkıntı oluyor,


İyi çalışmalar.

evet bu konuda benim de merakım var yardımcı olursanız sevinirim. tablo bağla yapıldığında exeldeki veriler otamatik güncelleniyor ama bağlı tabloda birincil anahtar seçemiyorum bu da gerçekten ilişkilendirmelerde sorun oluyor. bu sorunu nasıl aşabilirim?

 

[shogan]

arkadaşlar yukarıda sorduğum soru hakkında bir bilgisi olan yok mu?

 

[kkoksal]

Bence bu işini görür
Sub GoExcel()
Dim db As Database, dn As Dynaset
Set db = OpenDatabase("d:\yenidat\xxv1.mdb")
Set dn = db.CreateDynaset("SELECT DISTINCTROW Makineler.KOD, Makineler.[Kuruluş tarihi], Min(Ziyaretler.Tarih) AS MinOfTarih, Min(Ziyaretler.Saya&#231 AS MinOfSayaç, Max(Ziyaretler_1.Tarih) AS MaxOfTarih, Max(Ziyaretler.Saya&#231 AS MaxOfSayaç, [MaxOfTarih]-[Kuruluş tarihi] AS Ömür, ([MaxOfSayaç]/[Ömür]) AS Günlük FROM (Ziyaretler INNER JOIN Makineler ON Ziyaretler.MAKİNE = Makineler.KOD) INNER JOIN Ziyaretler AS Ziyaretler_1 ON (Ziyaretler.Sayaç = Ziyaretler_1.Saya&#231 AND (Ziyaretler.MAKİNE = Ziyaretler_1.MAKİNE) GROUP BY Makineler.KOD, Makineler.[Kuruluş tarihi] HAVING (((Max(Ziyaretler.Saya&#231)>0 And (Max(Ziyaretler.Saya&#231) Is Not Null)) ORDER BY Makineler.KOD;")

c = DDEInitiate("Excel", "Sheet1") 'HEPSİ.XLS
MsgBox ("Veri okundu..Gönderim için OK")
t1 = Time
For t = 1 To 1000
tYer = "R" & t & "C1"
d = DDERequest(c, tYer)
d = Left(d, Len(d) - 2)

dn.MoveFirst
While Not dn.EOF
If Trim(d) = Trim(dn("KOD")) Then
Yer = "R" & t & "C6"
DDEPoke c, Yer, dn("MinOfTarih")
Yer = "R" & t & "C7"
DDEPoke c, Yer, dn("MinOfSayaç")
Yer = "R" & t & "C8"
DDEPoke c, Yer, dn("MaxOfTarih")
Yer = "R" & t & "C9"
DDEPoke c, Yer, dn("MaxOfSayaç")
End If
dn.MoveNext
Wend

Next
t2 = Time - t1
MsgBox ("BİTTİİ")
MsgBox ("Süre : " & t2)
End Sub