Click here to Skip to main content
15,925,371 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralJava/Swing Pin
fsb6617-Mar-02 17:56
fsb6617-Mar-02 17:56 
Questionhow can i send picture on plotter through VB programe Pin
talha17-Mar-02 10:17
talha17-Mar-02 10:17 
Generalhelp with downloading from a login/pass web using php (repost) Pin
17-Mar-02 6:45
suss17-Mar-02 6:45 
GeneralPlease help me ! answer something! Pin
31-Mar-02 11:19
suss31-Mar-02 11:19 
Generalconerting path Pin
mohith17-Mar-02 2:57
mohith17-Mar-02 2:57 
GeneralRe: conerting path Pin
Jeremy Falcon18-Mar-02 3:22
professionalJeremy Falcon18-Mar-02 3:22 
QuestionHow can I pass animation from Flash5 to VB6 ?? Pin
Ahuva14-Mar-02 2:31
Ahuva14-Mar-02 2:31 
GeneralVBS & Excel Files Pin
king_ging13-Mar-02 23:18
king_ging13-Mar-02 23:18 
Hi Ladiez & Gentz,

this is an example out of my Learn Scripting In 2 Hours Book (Yeah Right)

it opens excel and then creates a new workbook and changes some of the cell properties and enters some info

but what i want is to open excel and then OPEN a workbook - anyone got any idea on how to

thanks in advance

Alex T
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

L_Welcome_MsgBox_Message_Text = "This script will display Windows Scripting Host properties in Excel"
L_Welcome_MsgBox_Title_Text = "Windows Scripting Host & Excel"

'Excel Sample

Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")

objXL.Visible = True

objXL.Workbooks.Add

objXL.Columns(1).ColumnWidth = 20
objXL.Columns(2).ColumnWidth = 30
objXL.Columns(3).ColumnWidth = 40

objXL.Cells(1, 1).Value = "Property Name"
objXL.Cells(1, 2).Value = "Value"
objXL.Cells(1, 3).Value = "Description"

objXL.Range("A1:C1").Select
objXL.Selection.Font.Bold = True
objXL.Selection.Interior.ColorIndex = 1
objXL.Selection.Interior.Pattern = 1 'xlSolid
objXL.Selection.Font.ColorIndex = 2

objXL.Columns("B:B").Select
objXL.Selection.HorizontalAlignment = &hFFFFEFDD 'xlLeft

Dim intIndex
intIndex = 2

Sub Show(strName, strValue, strDesc)
objXL.Cells(intIndex, 1).Value = strName
objXL.Cells(intIndex, 2).Value = strValue
objXL.Cells(intIndex, 3).Value = strDesc
intIndex = intIndex + 1
objXL.Cells(intIndex, 1).Select
End Sub

'Show WScript Properties
Call Show("Name", WScript.Name, "Application Friendly Name")
Call Show("Version", WScript.Version, "Application Version")
Call Show("FullName", WScript.FullName, "Application Context: Fully Qualified Name")
Call Show("Path", WScript.Path, "Application Context: Path Only")
Call Show("Interactive", WScript.Interactive, "State Of Interactive Mode")

'Show Command line Arguments
Dim colArgs
Set colArgs = WScript.Arguments
Call Show("Arguments.Count", colArgs.Count, "Number of command line arguments")

For i = 0 To colArgs.Count - 1
objXL.Cells(intIndex, 1).Value = "Arguments(" & i & ")"
objXL.Cells(intIndex, 2).Value = ColArgs(i)
intIndex = intIndex + 1
objXL.Cells(intIndex, 1).Select
Next

'Welcome
Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Text, vbOkCancel + vbInformation, L_WelcomeTitleText)
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub



Questionhow to create a reusable control program for web database. Pin
11-Mar-02 1:42
suss11-Mar-02 1:42 
GeneralVB6, Databases, and DataGrids! Pin
Matt-T10-Mar-02 1:26
Matt-T10-Mar-02 1:26 
GeneralRe: VB6, Databases, and DataGrids! Pin
12-Mar-02 5:09
suss12-Mar-02 5:09 
GeneralNeed some information about VBA,Thank you! Pin
big20029-Mar-02 21:22
big20029-Mar-02 21:22 
GeneralNeed some information about VBA,Thank you! Pin
9-Mar-02 20:56
suss9-Mar-02 20:56 
GeneralCreation of Excel files Pin
Sudhakar8-Mar-02 19:42
Sudhakar8-Mar-02 19:42 
GeneralRe: Creation of Excel files Pin
David Wengier9-Mar-02 1:41
David Wengier9-Mar-02 1:41 
GeneralWSH, SendKeys, and AppActivate - URGENT RESPONSE NEEDED Pin
8-Mar-02 11:08
suss8-Mar-02 11:08 
GeneralVBScript Type Mismatch Pin
8-Mar-02 8:09
suss8-Mar-02 8:09 
GeneralImage in Menu and Buttonmenu Pin
7-Mar-02 23:46
suss7-Mar-02 23:46 
GeneralControlling the Printer Pin
budgie7-Mar-02 23:46
budgie7-Mar-02 23:46 
GeneralRe: Controlling the Printer Pin
Paul M Watt21-Apr-02 13:37
mentorPaul M Watt21-Apr-02 13:37 
GeneralPrinting my VB project Pin
7-Mar-02 23:35
suss7-Mar-02 23:35 
GeneralRe: Printing my VB project Pin
David Wengier7-Mar-02 23:33
David Wengier7-Mar-02 23:33 
QuestionHow to deal with a Word document? Pin
big20027-Mar-02 3:05
big20027-Mar-02 3:05 
GeneralRe: I am a chinese boy,give me a hand,thank you! Pin
Zell6-Mar-02 23:03
Zell6-Mar-02 23:03 
GeneralUnix "Who" equival in VB Pin
AG5-Mar-02 17:11
AG5-Mar-02 17:11 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.