- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,345
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
Referans eklenmemiş görünüyor bende. Referansı "Browse" ile .ocx dosyasını seçerek ekleyin.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Veritabanı Seç"
.Filters.Add "Bütün dosya türleri", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Access Dosyaları", "*.mdb"
.Filters.Add "Excel Dosyaları", "*.xls"
.FilterIndex = 4
.AllowMultiSelect = False
.InitialFileName = "C:\"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
End If
End With
Sub Files_Save_Dialog()
Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogSaveAs)
If Not f.Show = -1 Then Exit Sub
MsgBox f.SelectedItems(1) & ".mdb"
End Sub
Function WriteLineToFile
Const okuma = 1, yazma = 2, ekleme = 8
Dim fso, f
Dim rst As New Recordset
path = CurrentProject.path
name = path & "\kaynak.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(kaynak, ForWriting, True)
rst.Open "geçicitabloadı", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Do While Not rst.EOF
f.WriteLine rst
rst.MoveNext
Loop
rst.Close
f.Close
Set rst = Nothing
Set f = Nothing
End Function
Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Sub