Apache OpenOffice: forum della comunità

Codice: Seleziona tutto

REM  *****  BASIC  *****

Sub CreaICS
Dim iNumber,do1,for1,for2,col As Integer
Dim aFile,CalName As String
dim sh2,sh1 as object
dim qualcosa as boolean
	Sh2=ThisComponent.Sheets.getByName("TAG_ICS")
	Sh1=ThisComponent.Sheets.getByName("Inserimento")
    aFile =Sh1.getCellByPosition(4,0).string
    CalName =Sh1.getCellByPosition(1,0).string
    do1=5
    qualcosa=false
    do 
  		if Sh1.getCellByPosition(0,do1).string="" then exit do
    	qualcosa=true
    	if do1=5 then
    		iNumber = Freefile
    		Open aFile For Output As #iNumber
    		for for1=1 to 8
    			if for1<>6 then
    				Print #iNumber,Sh2.getCellByPosition(1,for1).string
    			else
    				Print #iNumber,Sh2.getCellByPosition(1,for1).string & CalName
    			end if
    		next
    	end if
        for for1=10 to 16
        	select case for1
        	case 11,12,13,14,15
        		col=Sh2.getCellByPosition(2,for1).value
    			Print #iNumber,Sh2.getCellByPosition(1,for1).string & Sh1.getCellByPosition(col,do1).string
    		case 10,16
 	  			Print #iNumber,Sh2.getCellByPosition(1,for1).string
 	  		end select
    	next
    	Print #iNumber,Sh2.getCellByPosition(4,10).string
    	do1=do1+1
    loop
    if qualcosa then
    	Print #iNumber,Sh2.getCellByPosition(4,1).string
    	Close #iNumber
    	MsgBox "Creato file"
    else
    	MsgBox "Nessun file creato"
    end if
End Sub