Spalten und Zeilen in Excel-Datei mittels VB löschen

Dieses Thema Spalten und Zeilen in Excel-Datei mittels VB löschen im Forum "Windows XP Forum" wurde erstellt von Richie01, 5. März 2008.

Thema: Spalten und Zeilen in Excel-Datei mittels VB löschen >:( Hallo Zusammen, habe ein kleines Problem. Ich habe ein Programm geschrieben, was aus einer Crystal Reports...

  1. :mad:

    Hallo Zusammen,

    habe ein kleines Problem. Ich habe ein Programm geschrieben, was aus einer Crystal Reports (*.rpt) Datei automatisch einen Export nach Excel macht. Soweit so gut. Nun möchte ich gerne die Excel-Datei zusätzlich noch mittels VB bearbeiten lassen. Es sollen alle leeren Zeilen und alle leeren Spalten automatisch gelöscht werden. Wie kann ich das realisieren. Hier mein Programm für den Export via VB:

    Private Sub Command1_Click()

    On Error GoTo Login_Error

    Dim objApplicat As Object
    Set objApplication = CreateObject(CrystalRuntime.Application)

    Dim strPath As String
    strPath = c:\CLX01.rpt

    Dim objReport As Object

    Set objReport = objApplication.OpenReport(strPath, 1)

    objReport.EnableParameterPrompting = False
    objReport.ExportOptions.UseReportDateFormat = 1
    objReport.ExportOptions.UseReportNumberFormat = 1
    objReport.DisplayProgressDialog = False
    objReport.ExportOptions.FormatType = 22->crEFTExcel80
    objReport.ExportOptions.DiskFileName = c:\CLX01.xls
    objReport.ExportOptions.DestinationType = 1->crEDTDiskFile
    objReport.ExportOptions.ExcelAreaType = 4->crDetail
    objReport.ExportOptions.ExcelConvertDateToString = False
    objReport.ExportOptions.ExcelUseWorksheetFunctions = True

    If False = ReportConnectExternalDatabase(objReport, Export to Excel, , ) Then
    Debug.Print err
    End If

    Debug.Print Start
    objReport.Export False
    Debug.Print Finish

    Exit Sub

    Login_Error:


    Debug.Print Description: & Err.Description & & Number: & Err.Number & & LastDllError: & Err.LastDllError & & Source: & Err.Source

    End Sub

    Function ReportConnectExternalDatabase(ByRef objReport As Object, _
    ByVal strDSN As String, _
    ByVal strU As String, _
    ByVal strP As String) As Boolean
    ReportConnectExternalDatabase = True
    strU = strU
    strP = strP
    If (strDSN = ) Then
    strDSN = Export to Excel
    If (strU = ) Then
    strU = User
    End If
    If (strP = ) Then
    strP = password
    End If
    End If

    Dim i As Integer

    'Logons
    Dim nTablesCount As Integer
    nTablesCount = objReport.Database.Tables.Count
    Debug.Print objReport.Database.Tables.Count & Str(objReport.Database.Tables.Count)
    For i = 1 To nTablesCount
    objReport.Database.Tables(i).SetLogOnInfo strDSN, strDSN, strU, strP
    Debug.Print strDSN & strDSN
    Debug.Print strU & strU
    Debug.Print strP & strP

    'Test connection
    ReportConnectExternalDatabase = objReport.Database.Tables(i).TestConnectivity
    If ReportConnectExternalDatabase = False Then
    Exit For
    End If
    Next i

    End Function
     
Die Seite wird geladen...

Spalten und Zeilen in Excel-Datei mittels VB löschen - Ähnliche Themen

Forum Datum
Excel 2007. Nichtbenötigte Zeilen und Spalten entfernen. Microsoft Office Suite 30. März 2012
Wie Spalten und Zeilen in Excel umbenennen? Microsoft Office Suite 15. Okt. 2007
Excel: Zeilen/Spalten am Rand ausblenden Microsoft Office Suite 20. Jan. 2007
Suche in Exel nur über Spalten und Zeilen möglich?? Windows XP Forum 11. Okt. 2005
Excel Zeilen / Spalten verbergen ... Windows XP Forum 4. Juni 2005