VBA Dosyanın Uzantısını Değiştirme

168 Okunma VBA

VBA programlama dilinde dosyaların uzantısını değiştirmek için aşağıdaki kod kullanılabilir. 

Sub dosya_uzantisi_degistir()
  Dim dosya_yolu As String
  Dim eski_dosya_adi As String
  Dim yeni_dosya_adi As String
  dosya_yolu = "C:\dosyalar\"
  eski_dosya_adi = "dosya.txt"
  yeni_dosya_adi = "dosya.xlsx"
  Name dosya_yolu & eski_dosya_adi As dosya_yolu & yeni_dosya_adi
End Sub

Bu kod, C sürücüsündeki "dosyalar" dizinindeki "dosya.txt" dosyasının uzantısını ".xlsx" olarak değiştirir. dosya_yolu değişkeni, dosyanın bulunduğu dizinin yolunu belirtir ve eski_dosya_adi ve yeni_dosya_adi değişkenleri, eski ve yeni dosya adını belirtir. Name komutu, dosyanın adını değiştirir.

VBA

İlginizi Çekebilir

VBA Bir Dizideki Tek Sayıların Adetini Bulma Örneği

VBA Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

VBA Bir Sayının Kuvvetinin Hesaplanması

VBA Diziye Eleman Ekleme

VBA Bir String İçindeki Sayıların Toplamını Bulma Örneği