<![CDATA[Fox4um - Microsoft Office Otomasyonu]]> 2011-12-18T22:31:19Z PunBB http://www.fox4um.com/ <![CDATA[excel .xlsx uzantısında .ActiveWorkbook.Save() sorun yaratıyor]]> Excel kullanan programlarım dosya adını  örneğin m.dosyAd="dosyaad.xls" şeklinde kullanıyor ve excel dosyasını
.Workbooks.Open(m.dosyAd) diye açıyor

yeni Excel formatı ile (.xlsx kullanan) .ActiveWorkbook.Save() komutu kullandığımda Excel BAZEN ve tamamen rastlantısal kendi içinden sorun yaratıp kendini kapatıyor.

ne değişti ve ne yapmam gerekiyor ?

]]> http://www.fox4um.com/user/146/ 2011-12-18T22:31:19Z http://www.fox4um.com/topic/2076/excel-xlsx-uzantisinda-activeworkbooksave-sorun-yaratiyor/new/posts/ <![CDATA[Outlook ve Drag and Drop işlemi.]]> Merhabalar,

2 tane sorum olacak umarım yardımcı olabilirsiniz.

1. Outlook içinden gelen bir postayı masaüstüne kaydettikten sonra bir msg uzantılı bir dosya oluşuyor. Ben bu msg dosyasını MSMAPI.mapiMessages ile açıp okuyabilirmiyim. Text olarak açıyorum fakat pars etmek çok zahmetli ayrıca o dosyanın içindeki eklerede ulaşmam gerekiyor.

2. Outlook içindeki bir postayı form üzerindeki bir grid'e taşımak istiyorum. fakat OleDragDrop içinde odataobject.GETFORMAT( 15, lObjArr) ile objenin yerini vermiyor ve .F. dönüyor.

Bu konularda bilgisi olan varmı acaba.


Şimdiden çok teşekkür ederim.

]]> http://www.fox4um.com/user/22/ 2011-10-30T08:44:55Z http://www.fox4um.com/topic/163/outlook-ve-drag-and-drop-islemi/new/posts/ <![CDATA[Word belgelerini Düzenlemek]]> Word belgelerini VFP 9.0 ile açıp düzenleyip kaydeden fakat bu işlemleri yaparken word den dosya ismine müdahaleyi engelleyen bi koda ihtiyacım var. Başlangıç olabilecek bi örnek olan arkadaşımız varsa sevinirim.

]]> http://www.fox4um.com/user/576/ 2011-10-04T14:02:14Z http://www.fox4um.com/topic/1255/word-belgelerini-duzenlemek/new/posts/ <![CDATA[Word Template Değişikliği]]> Arkadaşlar network üzerinde bulunan antetli yazılar için ortak bir alanda Microsoft Word Template file'ları kullanılıyor. Bu template'ler kullanılarak hazırlanan word dökümanlarını evinizde veya template'in bulunduğu server'a erişim olmadığı bir yerde açmaya çalıştığınızda word uzun bir süre bekletiyor (server ve template dosyasını arıyor) bulamayınca da normal açıyor. Word 2003 niçin beklettiğini yazmıyor ama word 2007'de server'a erişimi sağlamaya çalıştığını en alt satırda yazarak bekletiyor. Kısaca sorum şu:
Eski server üzerindeki template'ler baz alınarak yazılmış dosyalara kaydedilmiş olan template yol bilgisini yeni server göstererek nasıl değiştirebiliriz.
İnternette VB ile yazılmış aşağıdaki 2 scripti buldum. Bunu VFP 9'da yapabilir miyiz diye sormak istedim. 1. script belirttiğiniz klasör ve alt klasörlerdeki tüm .doc dosyalarını tarıyor, template tanım bilgisinde ESKİSERVER tanımlı templatelerin ismini YENİSERVER olarak değiştirip kaydediyor. Hata vermedi ama isteneni de yapmadı. 2. script ise isteneni yapıyor ama her bir .dot template'i için ayrı ayrı yapmak gerekiyor, template klasörüne göre değil, template dosyasına göre çalışıyor. Umarım sorunu anlatabilmişimdir.
İlgilenen olursa şimdiden teşekkürler.

1. Script
--------- 

Sub ChangeTemplates()
  FindFiles "C:\DocumentFolders", "*.doc"
End Sub
Sub FindFiles(strFolder As String, strFilePattern As String)
    Dim strFileName As String
    Dim strFolders() As String
    Dim iFolderCount As Integer
    Dim i As Integer
       'collect child folders
    strFileName = Dir$(strFolder & "\", vbDirectory)
    Do Until strFileName = ""
        If (GetAttr(strFolder & "\" & strFileName) And vbDirectory) = vbDirectory Then
            If Left$(strFileName, 1) <> "." Then
                ReDim Preserve strFolders(iFolderCount)
                strFolders(iFolderCount) = strFolder & "\" & strFileName
                iFolderCount = iFolderCount + 1
            End If
        End If
        strFileName = Dir$()
    Loop
       'process files in current folder
    strFileName = Dir$(strFolder & "\" & strFilePattern)
    Do Until strFileName = ""
            DoEvents
            Documents.Open strFolder & "\" & strFileName
            If ActiveDocument.AttachedTemplate.Path = "\\Oldserver\templates\" Then
                ActiveDocument.AttachedTemplate = "\\NewServer\templates\" & ActiveDocument.AttachedTemplate.Name
                ActiveDocument.Close wdSaveChanges
            Else
                ActiveDocument.Close wdDoNotSaveChanges
            End If
        strFileName = Dir$()
    Loop
       'look through child folders
    For i = 0 To iFolderCount - 1
        FindFiles strFolders(i), strFilePattern
    Next i
End Sub


2. Script
-------------- 

Sub FindFiles(strFolder As String, strFilePattern As String)
    Dim strFileName As String
    Dim strFolders() As String
    Dim iFolderCount As Integer
    Dim i As Integer
       'collect child folders
    strFileName = Dir$(strFolder & "\", vbDirectory)
    Do Until strFileName = ""
        If (GetAttr(strFolder & "\" & strFileName) And vbDirectory) = vbDirectory Then
            If Left$(strFileName, 1) <> "." Then
                ReDim Preserve strFolders(iFolderCount)
                strFolders(iFolderCount) = strFolder & "\" & strFileName
                iFolderCount = iFolderCount + 1
            End If
        End If
        strFileName = Dir$()
    Loop
       'process files in current folder
    strFileName = Dir$(strFolder & "\" & strFilePattern)
    Do Until strFileName = ""
            DoEvents
            Documents.Open strFolder & "\" & strFileName
            If ActiveDocument.AttachedTemplate.Name <> "Normal.Dot" Then
                ActiveDocument.AttachedTemplate = "\\NewServer\Company\Sales\Quote Templates\" & ActiveDocument.AttachedTemplate.Name
                ActiveDocument.Close wdSaveChanges
            Else
                ActiveDocument.Close wdDoNotSaveChanges
            End If
        strFileName = Dir$()
    Loop
    'look through child folders
    For i = 0 To iFolderCount - 1
        FindFiles strFolders(i), strFilePattern
    Next i
End Sub
Private Sub CommandButton1_Click()
    MsgBox ("Start")
    FindFiles "C:\Company\Sales\Master Quote File", "*.doc"
    MsgBox ("Completed")
End Sub
]]> http://www.fox4um.com/user/94/ 2011-03-04T07:51:26Z http://www.fox4um.com/topic/1953/word-template-degisikligi/new/posts/ <![CDATA[Excel dosya açma save etme]]> Bir excel klası (=> This ) için aşağıdaki kodları yapmak isterken dağıldım - çarşaf oldum da denebilinir - 
Galiba excel ilk açtığında bir tmp yaratıyor - sonra onu silip esasını kaydediyor (Soykan'ın bir makalesinden öyle anladım)
Yapmak istediğimi kodların yanına yazdım:
DOSYA ADI İLE AÇ
DOSYA ADI GEÇİRİLMEMİŞ İSE DOSYA SOR ::GETFILE()
GETFILE BOŞ DÖNÜYORSA ANONİM DOSYA ADI VER

AÇILAN DOSYANIN SAYFALARINI DENETLE
AYNI İSİMLE SAYFA VAR İSE SONUNA I EKLE
SAYFAYI YENİ ADLA AÇ

DOSYAYI YENİ SAYFA İLE KAYDET ..mek ve bütün bunlar için

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

With oExcel As "Excel.Application"

m.defaultdir=SYS(5)+SYS(2003)

IF  ISBLANK(This.Dosyad)  && dosya adı yok getfile ile seçilebilinecek

  WAIT NOWAIT WINDOW "dosya seçerseniz sayfa eklenecek"+CHR(13)+"ve seçili ad ile saklanacak";

              +CHR(13)+CHR(13)+"seçmezseniz "+ADDBS(This.Dizinad)+This.dosyad+".xls dosyası oluşturulacak"

  m.Dosyad=GETFILE("xls","excel dosyasI seçin","seç",1,"SEÇİM YAPMAZSANIZ YENİ DOSYA OLUŞTURULACAK") 

 

IF ISBLANK(m.dosyad)   && GETFILE() ile seçmedik

    m.Dosyad=ADDBS(This.Dizinad)+"DosyaAdGirilmedi.xls"

    m.Dosyad=CHRTRAN(m.dosyad,"öÖYüÜşŞğĞçÇ() ","oOIuUSsgGcC")

    m.yenidosya=.t.

    .Workbooks.Add

  ELSE  &&   && GETFILE() ile seçtik

    IF FILE(m.Dosyad)  && burada çarşafa dolanmaya başlıyorum,

                                   && aslında gerek yok gibi görünüyor ama dosyayı birtürlu bulamadım

      .Workbooks.Open(m.dosyad)

      m.yenidosya=.f.

    ELSE

      m.yenidosya=.t.

      .Workbooks.Add

    ENDI  

  ENDIF

  This.Dosyad=m.dosyad

ELSE  && dosya adı geçirilmiş

  m.dosyad=ADDBS(This.Dizinad)+This.dosyad

    IF FILE(m.Dosyad)

      .Workbooks.Open(m.dosyad)  

      m.yenidosya=.f.

    ELSE

      m.yenidosya=.t.

      .Workbooks.Add

    ENDI  

ENDIF

*

.Visible = .T.

 

IF ISBLANK(This.Sayfad)

  m.Sayfad="X"

ELSE  && sayfa adı geçirilmiş

  m.Sayfad=This.Sayfad

ENDIF

m.Sayfad=CHRTRAN(m.Sayfad,"/&%#","*")

 

m.xi=1

m.sayfaek=" "

m.sayfadx=m.sayfad

DO WHIL m.xi < .ActiveWorkbook.Sheets.Count 

  IF ALLTRIM(UPPER(.ActiveWorkbook.Sheets[m.xi].Name))=ALLTRIM(UPPER(m.sayfad))

    m.sayfaek=m.sayfaek+"I"

    m.sayfad=LEFT(m.sayfadx,31-LEN(m.sayfaek))+m.sayfaek

    m.xi=1

  ELSE

    m.xi=m.xi+1

  ENDIF

ENDD

  

.ActiveWorkBook.sheets.Add

.ActiveWorkbook.ActiveSheet.Name = m.sayfad


sonrası excel işlemleri ve kaydetme bölümü

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

IF m.yenidosya

  .ActiveWorkbook.SaveAs(ADDBS(tHis.Dizin)+This.dosyad, -4143)

ELSE

 .ActiveWorkbook.Save(This.dosyad)

ENDIF

.ActiveWorkbook.Saved = .T.

ENDWITH

 

*beceremdiğim Soykan'a ait kodlar

*MyFile = This.dosyad

*MyFileJustName = Justfname(MyFile)

*IF m.yenidosya

*    If File(MyFile)

*       Erase (MyFile)

*   Endif

*   oExcel.ActiveWorkbook.SaveAs(MyFile)

*Else

*   oExcel.ActiveWorkbook.Save()

*Endif

 

SET DIRE TO (m.defaultdir)
]]> http://www.fox4um.com/user/146/ 2011-02-28T13:06:20Z http://www.fox4um.com/topic/1948/excel-dosya-acma-save-etme/new/posts/ <![CDATA[Hangi office paketini yüklemeliyim?]]> Merhabalar;

Yeni bir bilgisayar aldım. Windows 7 pro edt. yüklü.

MS Office 2010 yüklesem VFP ile rahat bir şekilde çalışır mıyım?

Yoksa Office 2003 + 2010 mu yüklemeliyim? Yada 2003 + 2007 + 2010

Yorumlar ve öneriler için şimdiden çok teşekkür ediyorum.

]]> http://www.fox4um.com/user/30/ 2010-12-11T15:31:05Z http://www.fox4um.com/topic/1862/hangi-office-paketini-yuklemeliyim/new/posts/ <![CDATA[excell de hücre rengi arama]]> arkadaşlar benim yapmak istediğim butona bastığımda inputbox çıksın ona girmiş olduğum sayısal değeri belli bir satırda arasın denk gelen değerin bulunduğu kolonda dolgu rengi örnek olarak sarı olan hücreyi arasın ve ve bulunan hücrenin sağındaki karşılık olan değeri versin..

umarım çok karışık olmamıştır. Koşullu düşeyarama gibi düşünün fakat aranılacak olan hücrenin dolgu rengi.

Lütfen bana yardımcı olun bu benim gerçekten çok önemli.

İlginiz için şimdiden hepinize teşekkürler.

]]> http://www.fox4um.com/user/915/ 2010-11-07T00:46:24Z http://www.fox4um.com/topic/1829/excell-de-hucre-rengi-arama/new/posts/ <![CDATA[Excelde Clipboard a kopyalanan bilgi]]> Herkese Merhaba,

excelde CTRL + C ile clipboard a aldigim bilgiyi nasil manage edebilirim. Bu bilgileri Cursor e atmanin bi yolu varmi ?

]]> http://www.fox4um.com/user/26/ 2010-10-22T14:51:55Z http://www.fox4um.com/topic/374/excelde-clipboard-a-kopyalanan-bilgi/new/posts/ <![CDATA[Excele Gönderilen Kayıtlara Otomatik Filter..]]> arkadaşlar kayıtları excell ortamına aktardığımızda, Veri/Filitre uygulama/Otomatik filitre uygula  işlemini kullanıcı yapmadan foxpro ile nasıl yapabilirim.Kullanıcılardan bu işlemi bile yapamayan:( kişiler oluyor.hazır gelsin istiyorum.Tüm arkadaşlara teşekkür ederim.

]]> http://www.fox4um.com/user/333/ 2010-10-14T19:36:05Z http://www.fox4um.com/topic/586/excele-gonderilen-kayitlara-otomatik-filter/new/posts/ <![CDATA[wordde satır numarası]]> Arkadaşlar acil yardımcı olursanız sevinirim

Yapmak istedigim word oluşturdukdan sonra
sayfa sonuna page x of y nasıl eklerim

Visual Fox Pro
1

lodoc.Sections(1).Footers(1).Range.InsertAfter(_pageno)

bu yeterli degil
sayfa sayısı nın yanına toplam sayfayıda koymalıyım

page 1 of 4
page 2 of 4

vs vs gibi

]]> http://www.fox4um.com/user/198/ 2010-08-26T15:08:13Z http://www.fox4um.com/topic/1744/wordde-satir-numarasi/new/posts/ <![CDATA[Excelde hücre rengi değiştirme]]> Muhterem foxpo dostları,hepinize merhaba ..
efendim excelde  o anda okuduğumuz hücrenin ;
A ) Yazı rengini
B )Zemin rengini nasıl değiştirebiliriz

Birde üzerinde çalıştığımız excel dosyasının zaten açık ve kullanımda olduğu nasıl anlarız  ?Kullanıcıya dosya açık önce dosyayı kapatın gibi bir mesaj vermek istiyorum.
                                tüm dostlara selamlar:)

]]> http://www.fox4um.com/user/333/ 2010-08-19T14:46:22Z http://www.fox4um.com/topic/1727/excelde-hucre-rengi-degistirme/new/posts/ <![CDATA[word de üst ve alt bilgiyi yazıcıdan cıktı alırken gizlemek]]> Arkadaşlar

Word'den cıktı alırken üst ve alt bilginin gizlenmesini nasıl saglarım
bunu hem fox'da hemde word'ün kendi içinde nasıl yaparım
bukonuda yardımlarınız bekliyorum
şimdiden tüm form'a teşekkürler.

]]> http://www.fox4um.com/user/198/ 2010-07-15T12:11:26Z http://www.fox4um.com/topic/1695/word-de-ust-ve-alt-bilgiyi-yazicidan-cikti-alirken-gizlemek/new/posts/ <![CDATA[excelde rowları kolon - kolonları row yapmak]]> bundan önce bir makro kaydedip yapmıştım.
başka bir yolu var mı, yoksa VFP içinden komutla mı yapayım ?
aşağıdaki resimdeki 1. tabloyu 2.tablo haline getirmek istiyorum.
http://img156.imageshack.us/img156/8130/excelresim12.jpg
peşinen teşekkürler, iyi pazarlar, sevgiler

makro kaydını da yazayım:
Sub yataya()
'
' yataya Makro
' Makro Konuk tarafından 25.04.2010 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+i
'
For xi = 1 To 100
    Selection.Cut
    Selection.End(xlUp).Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Paste
    Range("A6").Select
    Selection.End(xlDown).Select
Next xi
End Sub

]]> http://www.fox4um.com/user/146/ 2010-05-22T12:43:58Z http://www.fox4um.com/topic/1646/excelde-rowlari-kolon-kolonlari-row-yapmak/new/posts/ <![CDATA[excel hücreleri ile ilgili]]> excele aktarılan bilgiler düzenlenirken, bir hücrenin alignment özelliği nasıl değiştirilir bulamadım. left right yada center olması? birde belli aralıktaki hücrelere kenarlık çizmek istiyorum. ince kenarlık, kalın kenarlık nasıl çizdirebilirim. şimdiden teşekküler...

]]> http://www.fox4um.com/user/215/ 2010-03-03T15:26:24Z http://www.fox4um.com/topic/1134/excel-hucreleri-ile-ilgili/new/posts/ <![CDATA[AUTOMATE DATA LABEL FONT SIZE]]> Üstat yine sana sormadan FOX4UM 'a  kopyaladım smile

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

*!*    Author : Cetin Basoz

*!*    http://www.foxite.com/archives/0000252553.htm

 

#Define xlDataLabelsShowBubbleSizes  6

#Define xlDataLabelsShowLabel  4

#Define xlDataLabelsShowLabelAndPercent  5

#Define xlDataLabelsShowNone  -4142

#Define xlDataLabelsShowPercent  3

#Define xlDataLabelsShowValue  2

 

#Define xlColumns 2

#Define xlColumnClustered                                 51

#Define xl3DPieExploded 70

 

#Define xlLabelPositionBestFit 5

 

lcXLS = Sys(5)+Curdir()+'exceldatalabeltest.xls'

 

Create Cursor SampleData (ItemName c(10), v1 i, v2 i, v3 i)

For ix=1 To 10

  Insert Into SampleData Values ;

    ('Item'+Transform(ix), Rand()*100, Rand()*100, Rand()*100 )

Endfor

Copy To (m.lcXLS) Type Xls

 

*** set the LOCALEID to English

nlLocaleId=Sys(3004)        && Save local id

=Sys(3006,1033)                && We will be sending instructions in English

oExcel = Crea('excel.application')

With oExcel

  .workbooks.Open(m.lcXLS)

  .Visible = .T.

  With .ActiveWorkBook.ActiveSheet

    oChartRange = .UsedRange

    .ChartObjects.Add(200, 10, 500, 500)

    With .ChartObjects(1).Chart

      .SetSourceData(oChartRange, xlColumns)

      .hastitle = .T.

      .haslegend = .T.

      .ChartTitle.Caption = "Chart Title"

      .ChartType = xl3DPieExploded

      .ApplyDataLabels()

      With .SeriesCollection(1).DataLabels

        .ShowValue = .T.

        .ShowPercentage = .T.

        .Position = xlLabelPositionBestFit

        .Separator = CHR(10)

      Endwith

      With .SeriesCollection(1).DataLabels.Font

        .Name = 'Tahoma'

        .Size = 12

        .Underline = .T.

      Endwith

    Endwith

  Endwith

Endwith

=Sys(3006,Val(nlLocaleId))
]]> http://www.fox4um.com/user/30/ 2010-02-07T15:10:16Z http://www.fox4um.com/topic/1525/automate-data-label-font-size/new/posts/