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

193 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 Stringin İlk Orta ve Son Karakterini Alma Örneği

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

VBA Aktif Olan Dışındaki Tüm Worksheet'leri Gizlemek

VBA Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

VBA Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği