Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
Hello experts,
I am currently opening an excel file from a VB.net application. The excel spreadsheet gets all its data from a Dataset. I need to hide a column form the results. I dont want the users to have access to that perticular column in the excel spreadsheet. Here is my current code: Dim dt As DataTable = dsSql.Tables("TableName") Dim col As DataColumn Dim mrow As DataRow Dim objxl As Excel.Application Dim objwbs As Excel.Workbooks Dim objwb As Excel.Workbook Dim objws As Excel.Worksheet Dim colindex As Integer Dim rowindex As Integer objxl = New Excel.Application objwbs = objxl.Workbooks objwb = objwbs.Add objws = CType(objwb.Worksheets(1), Excel.Worksheet) If includeheader Then For Each col In dt.Columns colindex += 1 objws.Cells(1, colindex) = col.ColumnName Next rowindex = 1 Else rowindex = 0 End If For Each mrow In dt.Rows rowindex += 1 colindex = 0 For Each col In dt.Columns colindex += 1 objws.Cells(rowindex, colindex) = mrow(col.ColumnName).ToString() Next Next objxl.DisplayAlerts = False 'Makes overwrites automatic so that a prompt to overwrite doesnt pop up objwb.SaveAs(sFileName) objwb.Close() objxl.DisplayAlerts = True 'Makes overwrites non-automatic so that a prompt to overwrite does pop up objxl.Quit() objws = Nothing objwb = Nothing objwbs = Nothing objxl = Nothing What is the code to delete ONE entire column and where do I place it? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Need to Improve Code Copying/Pasting Between Workbooks | Excel Discussion (Misc queries) | |||
How do I hide text beyond the last column in Excel? | Excel Discussion (Misc queries) | |||
Check COlumn - Excel VBA | Excel Discussion (Misc queries) | |||
TRYING TO SET UP EXCEL SPREADSHEET ON MY COMPUTER | New Users to Excel | |||
Excel 97 Column & Row Header Problem | Excel Discussion (Misc queries) |