-
Hy, everybody. I´m trying to show on my Standard form the format cells of Excel(locate into an Excel cell and then push Ctrl+1), I'm using an ole from VB to Excel like this:
'********** I M P O R T A N T
'********** U must have to go to the project references and select the Microsoft Excel 9.0 or 8.0 Object Library
'----------- VB code
Option Explicit
Dim xlsApp As Excel.Application
Private Sub Command1_Click()
Hy, everyone. I´m trying to show on my Standard form the format cells of Excel(locate into an Excel cell and then push Ctrl+1), I'm using an ole from VB to Excel like this:
'********** I M P O R T A N T
'********** U must have to go to the project references and select the Microsoft Excel 9.0 or 8.0 Object Library
'----------- VB code
Option Explicit
Dim xlsApp As Excel.Application
Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
'Show Excel
.Visible = True
'Create a new workbook
.Workbooks.Add
'Put text in to the cell that is selected
.ActiveCell.Value = "123"
'Put text into A3 regardless of the selected cell
.Range("A3").Value = "456"
'----------- VB code
My question is: How can i show the format cells that appears in Excell
Thanx everyone for reply
-
Patience my boy...
*wow* you don't have any patience huh? you only post it less than an hour after your first post huh? :)
I'm sorry but I can't help you, at least this post is back on top again :)
-
Its been all of a half hour since your last post! What happened to patience? Many of the people who would be able to help you are at work (I know I am) and can only check the posts periodically. If somebody can help you I'm sure they will as soon as they can.
-
Oops Jop beat me to the reply. :)
-
-
Now I wait about 3 hours, but thanx everybody for reply. I'm still working with it. If could finish that **** i will share it.
See u later
-
Ok, i understand, what i'm trying to do is difficult
See u
-
A few tips for future posts.
- Never say you're a Guru in the Subject of your post :)
- When posting code type [ code ] Your code here [ /code ]
(Remove the spaces between the brackets and you'll get this)
Quote:
Code:
'********** I M P O R T A N T
'********** U must have to go to the project references and select the Microsoft Excel 9.0 or 8.0 Object Library
'----------- VB code
Option Explicit
Dim xlsApp As Excel.Application
Private Sub Command1_Click()
Hy, everyone. I´m trying to show on my Standard form the format cells of Excel(locate into an Excel cell and then push Ctrl+1), I'm using an ole from VB to Excel like this:
'********** I M P O R T A N T
'********** U must have to go to the project references and select the Microsoft Excel 9.0 or 8.0 Object Library
'----------- VB code
Option Explicit
Dim xlsApp As Excel.Application
Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
'Show Excel
.Visible = True
'Create a new workbook
.Workbooks.Add
'Put text in to the cell that is selected
.ActiveCell.Value = "123"
'Put text into A3 regardless of the selected cell
.Range("A3").Value = "456"
'----------- VB code
Hey it's on top again, goodluck
