- Katılım
- 20 Ocak 2006
- Mesajlar
- 21
listboxdan worde aktardığım metin içinde =bugün() olarak oluşturduğum tarih var. tarih modunda aktarım yapamıyorum 11/02/2005verisi wordde 38394 oluyor? tşk.
makro şöyle
Private Sub CommandButton1_Click()
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
For a = 0 To ListBox1.ListCount - 1
word.Selection.TypeText Text:=" " & ListBox1.List(a, 0) & " " & ListBox1.List(a, 1) & " " & ListBox1.List(a, 2)
word.Selection.TypeParagraph
Next
End Sub
makro şöyle
Private Sub CommandButton1_Click()
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
For a = 0 To ListBox1.ListCount - 1
word.Selection.TypeText Text:=" " & ListBox1.List(a, 0) & " " & ListBox1.List(a, 1) & " " & ListBox1.List(a, 2)
word.Selection.TypeParagraph
Next
End Sub