Skip to main content

Export recordset to Excel

Public Function ExportRecordsetToExcel(ByVal pvRs As ADODB.Recordset, _
ByVal pvXls As Excel.Worksheet, _
ByVal pvStartRow As Integer, _
Optional ByVal pvStartCol As Integer = 1) As Long
Dim nRows As Integer
Dim nCols As Integer
nRows = pvRs.RecordCount
nCols = pvRs.Fields.Count
With pvXls
.Cells(pvStartRow, pvStartCol).CopyFromRecordset pvRs
.Range(.Cells(pvStartRow, pvStartCol), .Cells(pvStartRow + nRows, pvStartCol + nCols)).CurrentRegion.Borders.LineStyle = xlContinuous
End With
ExportRecordsetToExcel = pvStartRow + nRows
End Function
Labels:

Comments

Post a Comment

Popular posts from this blog

pligg_validate does not return correct value

Pligg version 1.0.3 Before function pligg_validate(){ // returns the value for register validation return misc_validate; } After function pligg_validate(){ // returns the value for register validation global $db; $sql = "SELECT `var_value` FROM `" . table_config . "` WHERE `var_name` = '" . $db->escape('misc_validate') . "';"; $misc_validate = $db->get_var($sql); return return trim($misc_validate)=="true"?true:false; }
Post a Comment
Read more

Wrong Referrer with Pligg

To debug the problem, edit /libs/html1.php, find the function check_referrer(). To fix this issue, replace $my_base_url value to ' http://localhost ' as the following code. $my_base_url = ' http://localhost '; $my_pligg_base = ''; $dblang = 'en'; define('table_prefix', 'pligg_'); $language = 'english'; include_once mnminclude.'settings_from_db.php';
64 comments
Read more