excelden *.MAC uzantılı metin dosyası almak

[rejii]

Ekli dosya, iş yerinde kullandığımız AS400 programının macro dosyasıdır. Ben bu dosyayı kopyala yapıştır ile excele aktarıyorum ve formüller ile başka bir tablodan bazı değerleri değiştirip bir buton yardımı ile tekrar *.MAC uzantılı dosyayı farklı kaydedip AS400 de çalıştırmak istiyorum. Bana yardım edebilecek ustalara teşekkür ederim.

 

[rejii]

Kendimce bir şey yaptım fakat aynı dosyanın üzerine yazarken sormasını istemiyorum ve kayıt yaptıktan sonra farklı kaydettiği dosyayı açıyor bunu da istemiyorum. Yardımlarınız için teşekkürler.

 

[rejii]

Uzman arkadaşların yazdığı diğer kodlar sayesinde işi çözdüm.

Sub AS400AKTAR()

    Dim S1 As Worksheet
    Dim DOSYA_YOLU As String
    Dim SON_SATIR As Long, X As Long
    
    Set S1 = Sheets("MAC")
        
    DOSYA_YOLU = "C:\Program Files\IBM\Client Access\Emulator\Private\KAPAK.MAC"
    Application.ScreenUpdating = False
    
    With S1
        SON_SATIR = .Range("A65536").End(3).Row
        If .Range("A1") <> "" Then
        Open DOSYA_YOLU For Output As #1
        For X = 1 To SON_SATIR
        Print #1, Trim(S1.Cells(X, "A").Value)
        Next
        Close #1
        End If
    End With
    
    Set S1 = Nothing
        
    Application.ScreenUpdating = True
    MsgBox "İşleminiz Tamamlanmıştır.", vbInformation

End Sub