Sign In
Create Account
Back to top
 |
Chirurgia cranio-cerebrală minim invazivă
Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne. Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale. www.neurohope.ro |
VBA-excel
Last Updated: Nov 18 2005 02:32, Started by
marianI
, Nov 14 2005 11:54
·
0
0
#1
Posted 14 November 2005 - 11:54
|
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
Posted 15 November 2005 - 03:31
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
Posted 15 November 2005 - 07:45
|
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
Posted 15 November 2005 - 08:10
|
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.
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2024 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.