Unload Me End Sub Private Sub Command1_Click AC End Sub Private Sub Form_Load DISA_VERI_GONDER. Caption = " PROGRAM VERILERININ DIS ORTAMA AKTARILMASI!!" Text1 = ". XLSX" ProgressBar1. Visible = False ProgressBar1. Min = 1 ProgressBar1. Max = KAYSAY + 1 DOS = App. Path + "\DATA\" Label1. Visible = False 'Call SendMessageLong(ProgressBar1. hWnd, PBM_SETBARCOLOR, 0&, ByVal 100) End Sub Private Sub ICRA_YAP_Click Dim I, KP Dim VV As String, VCC As Integer ProgressBar1. Visible = True Label1. Visible = True ProgressBar1. Min = 1 ProgressBar1. Max = KAYSAY + 1 ProgressBar1. Value = 1 AC Application. Quit Workbooks. Open Sheets("SHEET1"). Select Cells(1, 1). Select: Cells(1, 1). Value = "ESERIN ILK SATIRI" Cells(1, 2). Select: Cells(1, 2). Value = "MAKAM" Cells(1, 3). Select: Cells(1, 3). Value = "USUL" Cells(1, 4). Select: Cells(1, 4). Value = "FORM" Cells(1, 5). Select: Cells(1, 5). Value = "SOZ YAZARI" Cells(1, 6). Select: Cells(1, 6). Value = "BESTEKAR" Cells(1, 7). Select: Cells(1, 7). Value = "SAYFA SAYISI" Open ISLEM_DOSYASI For Random As 1 Len = Len ActiveWorkbook. Save ' INDIS = 1 KP = 0 VV = KAYSAY For I = 1 To KAYSAY L$ = I Get

Exe yaptıktan sonra farklı bir konumamı kaydediyorsunuz projeyi. dosya yolunda app. path gibi bir degişken kullanıyor olabilirsiniz. Excel dosyasını eklediğiniz kodu yazabilir misiniz. Kod üzerinden kontrol edelim -

Evet dostum. app. path olarak değişken kullanıyorum. Ancak EXE yi başka bir konuma almıyorum, aynı dizinde oluşturup kullandım. İlgina teşekkürler, selamlar. O bölümün kodu: Dim DOS As String Sub AC 'On Error Resume Next Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Set oExcel = CreateObject Set oBook = oExcel. Workbooks. Add oBook. SaveAs AKTARILAN_DOSYA oExcel. Quit Application. Quit End Sub Private Sub CIKIS_Click Close

Arkadaşlar, VB 6.0 da yazdığım bir program da, bir veriyi kendi oluşturduğum bir EXCEL dosyasına aktarırken aşağıdaki 432 kodlu; filename or class name not found during automation operation hatasını veriyor. Hata tasarım aşamsındaki icrlarada yok. Ne zaman EXE desyası oluşturup programı çalıştırdığımda, ilgili bölümde bu hatayı veriyor. Projeye ilgili Excel Referansı yüklü. Hatanın giderilmesine yardımcı olabilecek arkadaşlara teşekkürler. Selamlar olsun.

bu arada vbulletin seo da ilginç bir detay vb kısaltmasını vbulletin olarak açmış link oluştururken ama biz visual basic demek istemişiz... bizi kendi emellerine alet ediyo seo uğruna VB 6.0 da 432 HATASI = vbulletin-6-0-da-432-hatasi-577045

Close

Unload Me End Sub Private Sub Text1_Change Text2 = Trim + Trim(Text1) End Sub Private Sub Text2_Change AKTARILAN_DOSYA = Trim(Text2) End Sub Private Sub Text2_Click MsgBox "BU KUTUYA VERİ GİRMEYİNİZ..!" End Sub Hepsini görmek için tıklayın...

Teşekkürler arkadaşım. Ben bir inceleyeyim.

1. DOS tanımlaması gibi AKTARILAN_DOSYA tanımlamasını genel tanımlamaların içine alın. AC sub içerisine yada ICRA_YAP içerisine bu yüzden AKTARILAN_DOSYA tanımı boş geliyor olabilir 2. AC Application. Quit burada AC fonksiyonunu çağırdıktan sonra tekrar application. quit demişsiniz. AC içerisinde zaten application. quit dediğiniz için kapatmış oluyorsunuz. ikincisinde bulamıyorum diyebilir. ve hata bundan kaynaklı olabilir. 3. AKTARILAN_DOSYA değişkenine atamayı text içerisinde değil de LOAD da ve ICRA_YAP işlemlerinde yaparsanız daha iyi olabilir eğer hiç text üzerinde işlem yapmazsa dosya yolu da aktarılmamış olur. dolayısı ile dosya kayıt adresini bulamadığı için hata veriyor olabilir. -