[VBA] Access Ile Excel Aç Kaydet Kapat

hedefkaya · 11-05-2021, 21:22

merhaba sabit bir excel dosyam var test.xlsx adında
bu dosyayı access ile arka planda gizli olarak açabilirmiyim hiç bir işlem yapmayacak sadece açık olacak

bu işlem mümkün değilse 2. çozüm olarak

test.xls dosyası açılsın otomatik kaydetsin kapatsın

amacım excel dosyam veri al ile otomatik veri alıyor fakat veri alması için exceli açıp kapatmam lazım
yardımlarınız için şimdiden teşekürler.

halily · 11-05-2021, 21:42

Excel dosyanız verileri nereden alıyor?
Bu test Excel dosyasındaki verileri hangi program kullanıyor?
Excelden exceli açma

Visual Basic
Dim wkb As Workbook
 Set wkb = Workbooks.Open("C:\WorkbookName.xls")

açılıp

Visual Basic
wkb.Close SaveChanges:=True

kapatilabilir

halily · 11-05-2021, 21:49

Accessten açmak için aşağıdakine benzer bir kod kullanilabilir

Visual Basic
Dim xlApp As Object
Dim wb As Workbook
Dim Test
Dim myFileName
 
    Set xlApp = CreateObject("Excel.Application")
 
    xlApp.Visible = True
 
    Set wb = xlApp.Workbooks.Open(myFileName, True, False)
 
    wb.Save
    wb.Close False
 
    xlApp.Quit
    Set xlApp = Nothing

hedefkaya · 14-05-2021, 18:33

(11-05-2021, 21:49)halily demiş ki: Accessten açmak için aşağıdakine benzer bir kod kullanilabilir

Visual Basic
Dim xlApp As Object
Dim wb As Workbook
Dim Test
Dim myFileName
 
    Set xlApp = CreateObject("Excel.Application")
    
    xlApp.Visible = True
   
    Set wb = xlApp.Workbooks.Open(myFileName, True, False)
 
    wb.Save
    wb.Close False
   
    xlApp.Quit
    Set xlApp = Nothing

sayın halily ilginiz için teşekürler tam olarak işimi gören kodlar

fakat exceli salt okunur olarak açıyor çözümü varmı acaba

halily · 14-05-2021, 20:52

denediğimde excel normal şekilde açıldı değişiklikler yaptım, kaydettim, kapattım. dosya salt okunur değildi. Hatta acaba dosya kullanımda olduğu için mi salt okunur açtı düşüncesiyle aynı dosyayı aynı hem normal hem de bu kodla açtım yine değiştirilebilir açtı

hedefkaya · **Kayıt Tarihi:** 26.03.2008

Visual Basic
Dim xlApp As Object
Dim Test
Dim myFileName
 
    Set xlApp = CreateObject("Excel.Application")
 
    xlApp.Visible = True
 
    Set wb = xlApp.Workbooks.Open("D:\test\fatura.xlsx", True, False)
 
 
     wb.RefreshAll
  
    wb.Save
     wb.Close False
 
    xlApp.Quit
    Set xlApp = Nothing

sayın halliy tekrardan teşekürler bir yardım daha rica edecem
yukardaki koda

wb.RefreshAll

satırı ekledim fakat yenileme tamamlanmadan kaydet ve kapat kodları devreye giridiği için hata veriyor
yenileme bittikten sonra alttaki kodları çalıştırmasını sağlıyabirmiyiz acaba.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[TABLO] Excel Aktarımı	kahramanselim	6	170	06-04-2024, 21:11 Son Mesaj: kahramanselim
	Access'e Yeni Tablo Oluşturarak Excel Import Etmek, Table'ı Sütunlara çevirmek...	İlhanYaylıcı	25	1.225	02-10-2023, 13:32 Son Mesaj: halily
	Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk.	adnnfrm	2	226	05-08-2023, 02:23 Son Mesaj: adnnfrm
	Excel Birleştir Ve Süz	Bora34	6	793	16-02-2023, 18:33 Son Mesaj: Bora34
	Access'e Dosya Bul Butonu Ile EXcel'den Veri çekme	snapper	2	278	06-12-2022, 11:51 Son Mesaj: snapper
	[VBA] access den makro ile excel çalışma kitabı açmak	omur34	10	9.446	09-05-2022, 12:37 Son Mesaj: dsezgin
	Duruma Göre Kaydı Yapılan Veya Yapılmayan Metin Kutusu Boş Ise Kaydet Butonu Hata Ve	tarkanaykın	2	292	26-04-2022, 23:53 Son Mesaj: tarkanaykın
	Access Içinde Gömülü Excel Dosyası Barındırabilir Miyiz?	adnnfrm	2	227	17-03-2022, 07:31 Son Mesaj: adnnfrm

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL