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

182 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 Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

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

VBA Bir Sayının Faktöriyelini Bulma Örneği

VBA Şifrelenmis Worksheet'lerin Şifresini Kaldırmak

VBA Bir Stringin Küçük Harfe Çevrilmesi