Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...
 probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National
 Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...
 Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.

Cost abonament clinica privata

Tremura toata, dar nu de la ro...
 

VBA-excel

- - - - -
  • Please log in to reply
6 replies to this topic

#1
marianI

marianI

    New Member

  • Grup: Members
  • Posts: 4
  • Înscris: 14.11.2005
salut,
poate e o intrebare tampita,dar sunt incepator
Cum pot deschide o pagina de excel din VBA?

Edited by marianI, 14 November 2005 - 11:56.


#2
romi

romi

    Junior Member

  • Grup: Members
  • Posts: 96
  • Înscris: 20.05.2005
Private Sub Command1_Click()
	Dim xcl As Excel.Application	
	Set xcl = CreateObject("Excel.Application")
	
	If xcl <> "" Then
		xcl.Workbooks.Add		   'adauga un registru la colectie
		xcl.DisplayAlerts = False
	End If
	
	xcl.Worksheets.Add			  'adauga o foaie
	xcl.Cells(1, 2) = "celula 1,2"
	 
	' secventa de mai jos o poti folosi pt cazul in care vrei sa salvezi documentul 
	' poti deasemenea si redenumi foaia in care lucrezi
	Dim xlBook As Excel.Workbook
	Dim xlSheet As Excel.Worksheet

	Set xlBook = xcl.Workbooks(1)
	Set xlSheet = xlBook.Worksheets(1)
	xlSheet.Name = "nume"
	xcl.Workbooks(1).SaveAs ("c:\MyExcel.xls")
	xlBook.Close
	Set xlSheet = Nothing
	Set xlBook = Nothing
	' sfarsit secventa

	xcl.Visible = True

	Set xcl = Nothing  
End Sub

obs: tb adaugata referinta al excel

#3
marianI

marianI

    New Member

  • Grup: Members
  • Posts: 4
  • Înscris: 14.11.2005

View Postromi, on Nov 15 2005, 03:31, said:

Private Sub Command1_Click()
	Dim xcl As Excel.Application	
	Set xcl = CreateObject("Excel.Application")
	
	If xcl <> "" Then
		xcl.Workbooks.Add		   'adauga un registru la colectie
		xcl.DisplayAlerts = False
	End If
	
	xcl.Worksheets.Add			  'adauga o foaie
	xcl.Cells(1, 2) = "celula 1,2"
	 
	' secventa de mai jos o poti folosi pt cazul in care vrei sa salvezi documentul 
	' poti deasemenea si redenumi foaia in care lucrezi
	Dim xlBook As Excel.Workbook
	Dim xlSheet As Excel.Worksheet

	Set xlBook = xcl.Workbooks(1)
	Set xlSheet = xlBook.Worksheets(1)
	xlSheet.Name = "nume"
	xcl.Workbooks(1).SaveAs ("c:\MyExcel.xls")
	xlBook.Close
	Set xlSheet = Nothing
	Set xlBook = Nothing
	' sfarsit secventa

	xcl.Visible = True

	Set xcl = Nothing  
End Sub

obs: tb adaugata referinta al excel


#4
marianI

marianI

    New Member

  • Grup: Members
  • Posts: 4
  • Înscris: 14.11.2005
Scuze am copiat postul tau din greseala.Multumesc pt raspuns.Problema este ca am mai incercat asa si nu stiu din ce cauza apare compile error;"user-defined type not defined" referitor la prima linie "Dim xcl As Excel.Application.". SIMT CA INEBUNESC am programul gata si trebuie sa folosesc de aici inainte un soft care preia datele numai in excel.Unde gresesc?Presupun ca este o chestie f simpla,banala.

#5
romi

romi

    Junior Member

  • Grup: Members
  • Posts: 96
  • Înscris: 20.05.2005
adauga excel la project: Project->References->Microsoft Excel
vezi poza din attachAttached File  excel.JPG   125.45K   176 downloads

#6
marianI

marianI

    New Member

  • Grup: Members
  • Posts: 4
  • Înscris: 14.11.2005
functioneaza,multumesc

#7
romi

romi

    Junior Member

  • Grup: Members
  • Posts: 96
  • Înscris: 20.05.2005
cu placere si altadata...

Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate