Excel'e Kayıt Problemi

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel'e Kayıt Problemi

İleti#1)  simoreg » 15 Nis 2019 07:22

Arkadaşlar merhaba,
VB ile var olan bir excel dosyasını açıp kayıt almam ve sonrasında kaydedip kapatmam gerekiyor. Açıp kayıt alabiliyorum fakat kayıt edip çıkma işleminde 'Bu konuda 'ÖZGEÇMİŞ.XLW' adlı bir dosya zaten var. Değiştirmek ister misiniz?' uyarısı çıkıyor. Benim onay vermem gerekiyor. Bu onayı vermeden otomatik kaydedip çıkma işlemi nasıl yapabilirim? Örnek programı paylaşıyorum.

Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Namespace WinTr
Public Class MainClass
Public Tag_1 As UInt16
Public Sub Load

'------- Script Start Line -------
'Excel uygulama nesnesi tanımlanıyor.
Dim Ex As Microsoft.Office.Interop.Excel.Application
Dim i As Integer

Ex = New Microsoft.Office.Interop.Excel.Application

Ex.Workbooks.Open (Filename:="C:\Users\togay.aksoy\Desktop\togay.xlsx")
Ex.Worksheets(1).cells(1, 1).value = "Sıra No" 'Excel hücrelerine yazılıyor.
Ex.Worksheets(1).cells(1, 2).value = "Tarih Saat"
Ex.Worksheets(1).cells(1, 3).value = "Seviye"

For i = 0 To 10

Ex.Worksheets(1).cells(i + 2, 1).value = i

Ex.Worksheets(1).cells(i + 2, 2).value = i+1

Ex.Worksheets(1).cells(i + 2, 3).value = i+2

Next

Ex.Visible = True
Ex.Save()
Ex.Quit()
'------- Script End Line -------
End Sub
End Class
End Namespace
Kullanıcı avatarı
simoreg
 
Kayıt: 14 Nis 2019 19:49
Meslek: Elektronik Mühendisi
Yaş: 30
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Excel'e Kayıt Problemi

İleti#2)  ahmetilhan282 » 16 Nis 2019 21:41

Ex.Save() satırı yerine Ex.Close(False) satırını kullanınca düzeliyor mu?
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 798
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], Sogou ve 1 misafir

Bumerang - Yazarkafe