PDA

View Full Version : help with vbasic program



TheUnheardHuman
12-18-2002, 05:02 PM
yes im using gay visual basic to write a program. someone is paying me for the source and he said he wanted it to be done in visual basic. i just need to know how i can using a binch of variables with assigned numbers be used into a excel document

face_master
12-18-2002, 05:02 PM
VB! The devil! No!

TheUnheardHuman
12-18-2002, 05:48 PM
thats wut i sed but hey i getting paid and i need money

RoD
12-18-2002, 08:13 PM
Can you elaborate on the problem, i did alot in VB and i can prolly help out.

salvelinus
12-18-2002, 08:46 PM
Here (http://www.vbforums.com)

TheUnheardHuman
12-18-2002, 08:50 PM
bassicly im making a stats keeping program for a voleyball team at a gym which the guy wants to be made in vbasic so he can later edit anything he might need to. each stat of each player like how many serves is held in a varibale and how many succfull serves in another. and so on for each player (theres more stats then that to keep) and i want to have a button to use all the numbers form the variables to be in a excel table. well thats what he wants to happen. is this possible?

Fordy
12-19-2002, 04:10 PM
Originally posted by TheUnheardHuman
bassicly im making a stats keeping program for a voleyball team at a gym which the guy wants to be made in vbasic so he can later edit anything he might need to. each stat of each player like how many serves is held in a varibale and how many succfull serves in another. and so on for each player (theres more stats then that to keep) and i want to have a button to use all the numbers form the variables to be in a excel table. well thats what he wants to happen. is this possible?

Its not too difficult...you need to include the library for your version of Excel in the reference settings...then do something like



Private Sub Form_Load()
On Error GoTo err_handler
Dim oApp As Excel.Application
Dim oWkBk As Excel.Worksheet

Set oApp = New Excel.Application 'Open Excel

oApp.Visible = True 'Make it visible

oApp.Workbooks.Add 'Add a new sheet
Set oWkBk = oApp.ActiveSheet 'Create reference to new sheet

oWkBk.Range("A1").Value = "Forename" 'Set column names
oWkBk.Range("B1").Value = "Score"
oWkBk.Range("A2").Value = "Dave" 'Set Data
oWkBk.Range("B2").Value = 40
oWkBk.Range("A3").Value = "Andrew"
oWkBk.Range("B3").Value = 35
oWkBk.Range("A4").Value = "Simon"
oWkBk.Range("B4").Value = 29

Set oWkBk = Nothing
Set oApp = Nothing
Exit Sub

err_handler: 'if error
MsgBox Err.Description
End Sub

Or even with VC++



#pragma warning (disable:4146)
//I am assuming you have a setting under Tools->Options->Directories
//For "Program Files\Common Files\Microsoft Shared"
//And the Office folder (wherever it is)
#import "Office10\mso.dll"
#import "VBA\VBA6\VBE6EXT.olb"
#import "excel.exe" \
rename("DialogBox", "ExDialogBox") rename("RGB", "ExRGB")

#include <windows.h>
#include <iostream>

struct COMINIT{//Start and end COM
COMINIT(){CoInitialize(0);}
~COMINIT(){CoUninitialize();}
}CI;

inline std::ostream& operator<<(std::ostream& out,
const _bstr_t& str){//Just to stop having to cast to Char*
out << static_cast<char*>(str);
return out;
}


int main(){

try{
Excel::_ApplicationPtr lpApp("Excel.Application");
Excel::_WorksheetPtr lpWkst = 0;

lpApp->PutVisible(0,TRUE);

lpApp->Workbooks->Add();
lpWkst = lpApp->ActiveSheet;

lpWkst->Range["A1"]->Value2 = "Forename";
lpWkst->Range["B1"]->Value2 = "Score";
lpWkst->Range["A2"]->Value2 = "Dave";
lpWkst->Range["B2"]->Value2 = 40L;
lpWkst->Range["A3"]->Value2 = "Andrew";
lpWkst->Range["B3"]->Value2 = 35L;
lpWkst->Range["A4"]->Value2 = "Simon";
lpWkst->Range["B4"]->Value2 = 29L;

lpWkst = 0;
lpApp = 0;

}
catch(_com_error& e){

std::cout << "Error ";
std::cout << (e.Description().length() ? e.Description() : "");
return 1;
}
return 0;
}

(Both Assume ExcelXP)