• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

kod yardımı

  1. L

    Çözüldü Kod Yardımı

    Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") dosya = Application.GetOpenFilename("Lütfen Dosyayı Seçiniz (*.docx),*.docx;") If dosya <> "False" Then MsgBox "Dosya Seçildi." Else MsgBox "Dosyayı Seçmediniz!" End If For i = 2 To...
Geri
Üst