Yardım tarih biçim değişikliği

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
142
En iyi yanıt
0
Puanları
18
Yaş
40
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Versiyon
Office 2019 Professional
J sütununda 2021.11.23 2021.11.24 vb.. olan tarihlerim var arkadaşlar. Bunları macro ile 23.11.2021 ve 24.11.2021 şekline nasıl dönüştürebilirim? Aşağıda export.xls dosyasından verileri çekerek getiren macrom var onu bu macronun içine adapte edeceğim.

Teşekkürler..


Private Sub CommandButton1_Click()
Set Con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
yol = "C:\Users\ufuk\Desktop\"
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "export.xlsx" & _
";extended properties=""Excel 8.0;hdr=yes"""
Sorgu = "SELECT * FROM [Sheet1$]"
rs.Open Sorgu, Con, 1, 1
Range("a1").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing
End Sub
 

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
91
En iyi yanıt
3
Puanları
8
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Versiyon
Office 2016
Merhaba aşağıdaki gibi deneyebilirsiniz.

Private Sub CommandButton1_Click()
Set Con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
yol = "C:\Users\ufuk\Desktop\"
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "export.xlsx" & _
";extended properties=""Excel 8.0;hdr=yes"""
Sorgu = "SELECT * FROM [Sheet1$]"
rs.Open Sorgu, Con, 1, 1
Range("a1").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing

Columns("J:J").Select
Selection.NumberFormat = "m/d/yyyy"


End Sub
 
Üst Alt