Skip to main content

AccessTr.neT


Excele Gönderirken Biçimlendirme Sorunu

Excele Gönderirken Biçimlendirme Sorunu

#3
(23/06/2022, 15:24)berduş yazdı: Set vbSheet = vbBook.Worksheets(1) satırı ile vbSheet.Cells.Select satırlarının arasını değiştirip dener msiniz?
Set vbSheet = vbBook.Worksheets(1)
' vbExcel.Visible = True
Dim fdArray, fdCount, rdCount
fdCount = 0
For Each fdExcel In rsExcel.Fields
fdCount = fdCount + 1
    If fdCount > 1 Then
    fdArray = fdArray & "<,>" & fdExcel.Name
    Else
    fdArray = fdExcel.Name
    End If
Next

' Excel Belgesine Başlıklar Aktarılıyor
With vbSheet.Range("A1")
.Resize(1, fdCount) = Split(fdArray, "<,>")
.Resize(1, fdCount).Font.Color = &HFF0000
.CopyFromRecordset rsExcel
End With


vbSheet.Cells.Select

önceki:
[Resim: do.php?img=12367]

şimdiki: başlıklar gelmedi
[Resim: do.php?img=12368]
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Excele Gönderirken Biçimlendirme Sorunu - Yazar: husem - 23/06/2022, 15:37
Task