Html - Excel - cell transfer help...

drour1

New Member
Joined
Aug 20, 2002
Messages
3
1st
Is there any possible way to create a webpage with excel spreadsheet embeded minus the "gray" numbers rows to the left, and the "gray" alpha columns on the top? Similar to a normal embeded "table".
2nd
Is there a way to take a regular webpage submit button and upon clicking that button, have the values (which are in the cells.. in 1st question), and open an already existing excel spreadsheet with those cell values transfered over? I have figured out(with the help of javascript) how to embed a submit button on my webpage and when clicked, the excel spreadsheet does open in a new window, but the values(or)data doesn't make it over.
**(basically, transfer entered text from textbox on webpage automatically to an excel spreadsheet.

Please ANYONE HELP!! Thank you in advance!
 

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.
Hi drour1,

About 1st, you can do this with HTML. Please visit the following site.
http://www.interq.or.jp/sun/puremis/colo/HtmlMaker.htm
You can download and you can see the code. The VbaProject is not protected. :grin:

About 2nd, I'm not sure but maybe not so difficult.
JavaScript or VbScript makes it possible...Now I have no time to make correct sample code.
Here is a sample code I made for you written in VBS. You can handle IE and Excel for the knowing the object name of them.
Please paste the following code on Notepad, and save as "Sample.vbs". Please double click the file named "Sample.vbs". :smile:

HTH


<pre>
strUrl="http://www.interq.or.jp/sun/puremis/colo/HtmlMaker.htm"
SET IE=CreateObject("InternetExplorer.Application")
With IE
.Visible=True
.Navigate strUrl
Do While IE.Busy=True : Loop
Do While IE.ReadyState <> 4 : Loop
buf = IE.document.all.README.Value
.Quit
End With

SET XL=CreateObject("Excel.Application")
With XL
.Visible=True
.WorkBooks.add
.Sheets(1).Range("A1").value=buf
.Sheets(1).Columns(1).ColumnWidth=100
.Sheets(1).Range("B1").Activate
End With

SET IE = Nothing
SET XL= Nothing

Msgbox "Done"
</pre>
 
Upvote 0

Forum statistics

Threads
1,226,287
Messages
6,190,071
Members
453,593
Latest member
Mubashar Ali

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top