1 Konuyu açan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Konu: Vfp Den Xls De Işlemler

Önceden oluşturduğum bir xls dosyasında;
1- yeni bir sayfa eklemek
2- mevcut sayfanın ismini değiştirmek
3-sayfanın içeriğini yeni bir sayfaya kopyalamak istiyorum.
Bununla ilgili komutlar konusunda yardıma ihtiyacım var. Şimdiden teşekkürler.

2 Cevaplayan soykanozcelik

  • soykanozcelik
  • soykanozcelik
  • Uzman Üye
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,513

Re: Vfp Den Xls De Işlemler

Alıntıdır işine yarayacağını umarım


Visual Fox Pro
IF TYPE("oExcel")<>"O"

PUBLIC oexcel

oexcel = CREATEOBJECT('Excel.Application')

* Create a new work sheet

oexcel.Workbooks.ADD

oexcel.APPLICATION.DisplayAlerts = .F.

oexcel.Sheets("Sheet2").SELECT

oexcel.ActiveWindow.SelectedSheets.DELETE

oexcel.Sheets("Sheet3").SELECT

oexcel.ActiveWindow.SelectedSheets.DELETE

oexcel.APPLICATION.DisplayAlerts = .T.

oexcel.VISIBLE = .T.

ELSE

oexcel.Sheets.ADD

ENDIF

WITH oexcel.Cells.FONT

.NAME = "Arial"

.SIZE = 10

.Bold = .T.

ENDWITH

oexcel.activesheet.NAME = "General"

oexcel.Cells( 1, 2).SELECT

oexcel.ActiveCell.COLUMNWIDTH = 43.29

....

oexcel.Sheets("General").SELECT

oexcel.Cells(1,1).SELECT

RELE oexcel
https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

soykanozcelik's Website

3 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Vfp Den Xls De Işlemler

1)
with oExcel.ActiveWorkBook
  .sheets.Add(,.sheets(.Sheets.Count)
endwith
2) oExcel.ActiveWorkbook.ActiveSheet.Name = "YeniIsim"
3)
with oExcel.ActiveWorkBook
   .ActiveSheet.UsedRange.Copy( .WorkSheets("HedefSheet").Range("A1") )
endwith

Not: Asla public oExcel kullanmayin. Tavsiye.

cetinbasoz's Website