mdb dosyası oluşturma

[acar6783]

Hayırlı Günler,

Aşağıdaki kodlarla cari kaydı için yeni bir ".mdb" dosyası oluşturabiliyorum.

Fakat bu şekilde oluşan tablonun sütünlarının sayı formatlarını düzenleyemiyorum.

Birkaç yol denedim amayapamadım.
Alternatif bir çözüm önerisi olan varmıdır?


Not:Aşağıdaki kodlar yerine ;
Örnek bir dosya oluşturup onu çoğaltarak dosya ismini ve sayfa ismini değiştrsem deolur.Bunu yapabilecek kodları bulamadım .

Sub carikaydıac()

Dim n
Dim ad, telefon
Dim Klasor, dosyaninadi, dosya

tanimlamalar
ad = "ACAR"
telefon = "5555555555"

dosyaninadi = ad & "-" & telefon
Dim DatabasePath As String
Dim cat As Object
Dim NewTable As Object

Klasor = ThisWorkbook.Path & "\carikayıtlar\"
If Right(Klasor, 1) <> "\" Then Klasor = Klasor & "\"

DatabasePath = Klasor & dosyaninadi & ".mdb"

For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files

If Mid(dosya.Name, 1, Len(dosyaninadi)) = dosyaninadi Then
MsgBox dosyaninadi & Chr(13) & " Adlı Cari Kayıtlı !!! ", vbCritical, "Uyarı": Exit Sub
End If
Next

Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ""
';User ID=admin;Jet OLEDB:Database Password=" & ""
Set NewTable = CreateObject("ADOX.Table")
Dim Kayit
Set Kayit = CreateObject("adodb.recordset")
With NewTable
.Name = ad

For n = 1 To 18
.Columns.Append k1.Cells(1, n).Value
Next
End With
cat.Tables.Append NewTable

MsgBox dosyaninadi & Chr(13) & " Cari Kaydedilmiştir...", vbInformation, "Kayıt"

End Sub