![]() |
|
| |||||||
|
| | Seçenekler |
|
#1
| |||
| | |||
Flexgrid İçeriğini Excel’ e AktarmakPrivate Sub Command1_Click() On Error Resume Next Dim a, i As Long If Form1.MSFlexGrid1.Rows = 1 Then ‘ Eğer msflexgrid boşsa aktarma yapma Title = “Hata !” Msg = “Microsoft Excel’ e aktarılacak herhangi bir kayıt bulunamadı.” Answer = MsgBox(Msg, vbCritical, Title) Exit Sub End If Screen.MousePointer = 11 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) For a = 1 To Form1.MSFlexGrid1.Cols For i = 1 To Form1.MSFlexGrid1.Rows xlSheet.Cells(1, a).Font.Bold = True ‘ Excel’ e aktarılan kayıtların ilk sütunu başlıklar olduğu için karakterleri bold xlSheet.Cells(i, a) = Form1.MSFlexGrid1.TextMatrix(i - 1, a - 1) xlSheet.Cells(i, 3).NumberFormat = “#,##0.00″ ‘burada excel tarafna aktarılan kaydın formatını belirleyebilirsiniz Next i Next a Screen.MousePointer = 0 xlBook.Application.Visible = True End Sub |
![]() |
| Arama Etiketleri: aktarmak, excel8217, flexgrid, icerigini |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konu Açanlar | Forum | Cevaplar | Güncel Mesajlar |
| Yasak mı? İçeriğini komple aynaladığım siteye adsense döşesem? | banias | Google Adsense | 3 | 21-06-2008 06:53 |
| ASP'den Excel' e veri aktarmak | B737 | ASP | 0 | 26-01-2008 04:46 |
| Textboxların İçeriğini *.ini Dosyasına Kaydetmek !! | Celebrian | Visual Basic & Action script | 0 | 24-12-2007 12:41 |
| veritabanınızda bulunan bir bilgi yi ms-word e aktarmak.. | egitimbilgisi | Asp kodları | 0 | 26-11-2007 05:10 |
| Bilgiyi Excel'e aktarmak! | egitimbilgisi | Asp kodları | 0 | 26-11-2007 05:09 |
![]() | ![]() |