Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Presbiopia - la 43 ani ?

Termen transcriere autovehicul

Cazare Timisoara pe 4-5 zile

Primele zile ale internetului per...
 Ditra 25

Casti USB-C ptr A-54

Aplicatie medicala / asistent med...

De ce vor atația politicieni...
 ERR_ADDRESS_UNREACHABLE

Legea 18/1968 Se mai aplica?

Digi conectare 2 routere prin fir

Succesiune notar versus instanta ...
 Montaj aer conditionat in balcon ...

Cont curent mulți valuta far...

Sugestii plan casa

Experiente cu firme care cumpara ...
 

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

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

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