32 bit ve 64 bit

[k0081]

Merhaba arkadaşlar;

32 bit işletim sisteminde çalışan macrolarım, 64 bit sistemde aşağıdaki hatayı veriyor.. nasıl düzeltebilirim.? tekrar mı yazmak gerekiyor.?

'//The Win32 API Functions///
Private Declare Function GetSaveFileName Lib _
"comdlg32.dll" Alias "GetSaveFileNameA" _
(pOpenfilename As OPENFILENAME) As Long

Private Declare Function GetOpenFileName Lib _
"comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long

 

[Korhan Ayhan]

Merhaba,

64 bit sistemlerde apilerin çalışması için PTRSAFE ifadesi eklenmesi gerekiyor.

Aşağıdaki linkte örnekler var. İncelermisiniz.

Deklare API fonksiyonlar 64 Bit uyumu

Sizin koda uyarladığımızda aşağıdaki gibi kullanabilirsiniz.

#If VBA7 Then
    Private Declare PtrSafe Function GetSaveFileName Lib _
    "comdlg32.dll" Alias "GetSaveFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
    
    Private Declare PtrSafe Function GetOpenFileName Lib _
    "comdlg32.dll" Alias "GetOpenFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
#Else
    Private Declare Function GetSaveFileName Lib _
    "comdlg32.dll" Alias "GetSaveFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
    
    Private Declare Function GetOpenFileName Lib _
    "comdlg32.dll" Alias "GetOpenFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
#End If

 

[k0081]

Merhaba,

64 bit sistemlerde apilerin çalışması için PTRSAFE ifadesi eklenmesi gerekiyor.

Aşağıdaki linkte örnekler var. İncelermisiniz.
***********************************
Merhaba Korhan hocam;

ptrsafe ekledim ama olmadı. hata da vermedi.. Fakat çalışmadı.. örnek dosyayı ekliyorum,,



Ekli dosyayı görüntüle Koordinat2txt.rar

 

[Murat OSMA]

Faydalı olacağını düşündüğüm 64-Bit API Listesini eklemek istiyorum...

Bu bağlantıdan da erişebilirsiniz; http://trac.assembla.com/ez-scramble/changeset/1329/share/docs/win32api_ptrsafe.txt

İyi günler...

 

[k0081]

Hocam cevap için teşekkür ederim. hala çalışmadı macrolar.. ptrsafe eklediğim halde.. hata da vermiyor..

 

[Merhum İdris SERDAR]

.

Aşağıdaki dosyayı yükleyerek deneyin.

.

 

[k0081]

.

cevap için teşekkürler, gönderdiğiniz dosyayı yükledim. Malesef bu da olmadı..

 

[Korhan Ayhan]

Merhaba,

Dosyanızda tam olarak yapmak istediğiniz işlemi açıklarsanız apisiz çözümler sunabiliriz.

 

[k0081]

Merhaba,

bir dosyada anlattım korhan hocam. ekliyorum.. kooordinat datalaraını txt dosyasından çekmek ve yazmak. ayrıca bir de son nokta koordinatı girildikten sonra ilk satırın kopyalanması ve renginin kırmızı olması...

örnek dosyam;
Ekli dosyayı görüntüle koordinat2.rar

 

[cocoa35]

32/64 bit sorunu

sorunu cozebildinizmi acaba? ayni sorunu bende yasiyorum. cozduyseniz paylasirmisiniz?

 

[Murat OSMA]

Çözüm burada: http://www.excel.web.tr/f48/64-bit-t134934.html#post730893

 

[EXTRANET]

Faydalı olacağını düşündüğüm 64-Bit API Listesini eklemek istiyorum...

Bu bağlantıdan da erişebilirsiniz; http://trac.assembla.com/ez-scramble/changeset/1329/share/docs/win32api_ptrsafe.txt

İyi günler...

Merhaba Murat Bey,
ekteki dosyayı açtığımda Word dosyası olarak açılıyor, sorun neden olabilir. (4 nolu mesaj)

teşekürler

 

[Murat OSMA]

Merhabalar,

Excel dosyalarını Word ile aç demiş olabilirsiniz.
Dosya üzerinde sağ tıklayıp Birlikte Aç'tan Excel'i seçip bir deneyin..

 

[EXTRANET]

Murat Bey,
sadece rar uzantılı dosyalarda bu sorun oluşuyor.

Birlikte aç dediğimde excel görünmüyor.

 

[Murat OSMA]

Excel görünmüyorsa Gözat' tan şu yolu takip ederek Excel uygulamasını seçebilirsiniz; C:\Program Files\Microsoft Office\Office14

Bu arada isterseniz bahsi geçen dosyayı sıkıştırılmış klasör olarak değil de direkt Excel dosyası olarak gönderebilirim..

 

[EXTRANET]

lütfen gönderir misiniz.
teşekürler

 

[Murat OSMA]

Dosya ek'tedir.

 

[asilme]

makro hatası

Merhaba,

64 bit sistemlerde apilerin çalışması için PTRSAFE ifadesi eklenmesi gerekiyor.

Aşağıdaki linkte örnekler var. İncelermisiniz.

Deklare API fonksiyonlar 64 Bit uyumu

Sizin koda uyarladığımızda aşağıdaki gibi kullanabilirsiniz.

#If VBA7 Then
    Private Declare PtrSafe Function GetSaveFileName Lib _
    "comdlg32.dll" Alias "GetSaveFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
    
    Private Declare PtrSafe Function GetOpenFileName Lib _
    "comdlg32.dll" Alias "GetOpenFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
#Else
    Private Declare Function GetSaveFileName Lib _
    "comdlg32.dll" Alias "GetSaveFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
    
    Private Declare Function GetOpenFileName Lib _
    "comdlg32.dll" Alias "GetOpenFileNameA" _
    (pOpenfilename As OPENFILENAME) As Long
#End If

bu kodu nereye yazacağım yardımcı olabilirmisiniz 2013 excelde makrolarım çalışmıyor siteyi incelediğimde bu kodu buldum nasıl kullanacağım konusunda yardımcı olabilirmisiniz