Tekst fra tekstboxer i en form skal inn på excel ark

[LysDiode]

Hei.

Jeg skal lage ett fakturaprogram:

Jeg vil at text fra textboxer i formen skal legges inn i excel arket.

 

Det skal fungere slik at man fører inn all info i formen, også blir det kopiert til sin bestemte celle i excel.

 

TextBox1 kopierer til f. eks. celle B7

 

Bruker Microsoft Excel 2007 Norsk

[Harald Staff]

Du kan enten bruke kode som dette:

 

Private Sub CommandButton1_Click()

Sheets(1).Range("B7").Value = Me.TextBox1.Text

End Sub

 

eller sette =Ark1!B7 som tekstboksens Control Source. Jeg ville brukt kodeløsningen.

 

HTH. Beste hilsen Harald

[LysDiode]

Takk

[LysDiode]

Error: Name 'Sheets' is not declared.

 

Hvordan retter jeg opp dette? Har fått slikt før, men har aldri skjønt helt hva det egentlig er :S

[Harald Staff]

Kan du døpe om fila til .txt og laste opp ? Vanligvis skyldes sånt referansetrøbbel.

 

EDIT: Dette skjemaet ditt ER i Excel, ikke i Word eller på nettet eller en eller annen selvskrevet applikasjon ?

Endret 12. februar 2008 av Harald Staff

[LysDiode]

Hva mener du? Koden er her:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub CommandButton1_Click()
	Sheets(1).Range("B7").Value = Me.TextBox1.Text
End Sub
End Class

 

Det er for hele programmet. Ville finne ut hvordan tekst fra textbox til celle i excel fungerte først.

 

Jeg lagde programmet på følgene måte:

 

1. Create project. Windows form application..

 

2. Lagde en knapp og en textbox

 

3. Satte inn koden i koden for formet, hvis du skjønner...

 

Da vet du nøyaktig hva jeg har gjort. Har ikke endret noen navn.

[Harald Staff]

Det var jo lett å anta at du jobber i Excel ut fra spørsmålet. Du er i VB.NET, og da er problemet heller enten hvordan skrive til en ny eller eksisterende Excelfil, eller hvordan fjernstyre en Excel-instans. Trenger mer info om hva dette skal og hvordan -men .net er ikke min dialekt, så det er sikkert noen andre som kommer med løsningen...

 

Beste hilsen Harald

[miXer]

Du må først integrere Microsoft Excel til projectet. Dette gjøres ved å velge Project -> Add Reference. I boksen velger du fanen COM. Bla deg frem til "Microsoft Excel 12.0 Object Library" ok trykker på OK.

 

Så helt øverst i kode vinduet ditt på linje en, skal det stå: Imports Microsoft.Office.Interop

 

Så kan du bruke denne koden for å legge til ting i excel.

Dim oExcel as Excel.Application
Dim oBook as Object
Dim oSheet as Object
oExcel = CreateObject("Excel.Application")
	oBook = oExcel.Workbooks.Add

	'Sette inn verdier i Excel
	oSheet = oBook.Worksheets(1)
	oSheet.Range("B1").Value = TextBox1.text
	oExcel.DisplayAlerts = False
		oBook.SaveAs(Path to save)
		oSheet = Nothing
		oBook.Close()
		oBook = Nothing
oExcel.Quit()
oExcel = Nothing

[LysDiode]

Takk, det hjalp