excell sheet

[merakli_72]

Arkadaşlar selam,
Aşağıdaki kod ile Accesste iken bir excel sheeti oluşturuyorum. Saati yazıp dosyayı kaydediyorda, fakat sheet kendi kendine kapanıyor. Sheetin ekranda görünür kalması nasıl sağlanabilir
Teşekkürler..


Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")



' Make Excel visible through the Application object.
'ExcelSheet.Application.Visible = True
ExcelSheet.Application.cells(1, 1).Value = Time
ExcelSheet.SaveAs "C:\TEST.XLS"

 

[Taruz]

Merhaba..

Kodu aşağıdakiyle değiştirirseniz dosya yeniden oluştuktan sonra Excel sayfasını açar..

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
Dim EAc As Object
ExcelSheet.Application.cells(1, 1).Value = Time
ExcelSheet.SaveAs "C:\TEST.XLS"
Set EAc = GetObject("C:\TEST.XLS")
EAc.Application.Visible = True
EAc.Windows(1).Visible = True

 

[seruz]

Excel.Sheet ile değil de excel.application ile de bu şekilde olabilir.

Dim ExcelDosyasi As Object
Set ExcelDosyasi = CreateObject("Excel.Application")

With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Add
Range("A1").Select
ActiveCell.FormulaR1C1 = "test"
ActiveWorkbook.SaveAs Filename:="C:\TEST.xls"

End With

 

[seruz]

Aşağıdaki örneği inceleyebilirsiniz.
Biraz kod bilginiz varsa kendi uygulamanıza uygulayabilirsiniz.

Kodları olabildiğince anlaşılır ve basit yazmaya çalıştım.

Excel kodlarını bulmak için şu yöntemi kullandım.
Excel'de Araçlar/Makro altındaki Yeni Makro Kaydet özelliği ile
istediğim işlemleri yaptım, kaydı durdurdum.
Yine Araçlar/Makro menüsünde Makrolar kısmında
Excel'in bu işlemler için yaptığı kodları Access'e aktardım.

Bence biraz uğraşın, takıldığınız yerde size yardımcı olmaya çalışırım.

 

[merakli_72]

Çok teşekkür ederim, Taruz ve Seruz Bey