Tallenna oheinen koodi tiedostoon muokkaus.vbs. Tiedosto voi olla vaikka työpöydällä. Raahaamalla excel tiedosto ”muokkaus.vbs” tiedoston päälle, käynnistyy prosessi. Prosessi pyörii taustalla oman aikansa ja lopuksi työpöydälle ilmestyy muokattu tiedosto.

[sourcecode language=”vb”]   
Dim ArgObj
    Set ArgObj = WScript.Arguments
    sfilename =ArgObj(0) ’luetaan raahatun tiedoston nimi

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(sfilename)
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open (sfilename)

    intRow = 2

’tässä siirretään solut B1 ja C1 talteen

    kk1 = objExcel.Cells(1,2).value
    kk2 = objExcel.Cells(1,3).value

’soluun A1 lisätään teksti

    objExcel.Cells(1,1).value="Muokattuteksti"

’solut B1 ja C1 tyhjennetään
    objExcel.Cells(1,2).value=""
    objExcel.Cells(1,3).value=""

’soluista B1 ja C1 talteen otetut arvot tallennetaan soluun C1 ja G1
    objExcel.Cells(1,3).value=kk1
    objExcel.Cells(1,7).value=kk2

    akk = (month(kk1))
    ayy = (year(kk1))
    slyhyt =  Right("00" & Month(kk1),2)

’Käydään excel sivua läpi niinkauan että törmätään sanaan TULOSLASKELMA
    Do Until objExcel.Cells(intRow,2).Value = "TULOSLASKELMA"
’Siirretään sarake F -> I
        objExcel.Cells(introw,9).value = objExcel.Cells(introw,6).value
        objExcel.Cells(introw,6).value = ""
’Siirretään sarake E -> G
        objExcel.Cells(introw,7).value = objExcel.Cells(introw,5).value
        objExcel.Cells(introw,5).value = ""
’Siirretään sarake D -> E
        objExcel.Cells(introw,5).value = objExcel.Cells(introw,4).value
        objExcel.Cells(introw,4).value = ""
        intRow = intRow + 1
    Loop

’lopuksi tallennetaan excel tiedosto uudella nimellä…

    objExcel.DisplayAlerts = False
    objWorkbook.SaveAs (objFSO.GetParentFolderName(objFile) & "\(" & ayy & slyhyt & ")" & objFSO.GetBaseName(objFile) & "siistitty." & objFSO.GetExtensionName(objFile))
    objWorkbook.close
    objExcel.Quit

[/sourcecode]

Pitihän se esitys lukea läpi. Tässä yksi kohta jota ei julkisuudessa näy ja yllätyin positiivisesti:

9 §
Tunnistamistietojen käsittely palvelujen toteuttamiseksi ja käyttämiseksi

Tunnistamistietoja saa käsitellä siinä määrin kuin se on tarpeen verkkopalvelun, viestintäpalvelun tai lisäarvopalvelun toteuttamiseksi ja käyttämiseksi sekä jäljempänä säädetyllä tavalla tietoturvasta huolehtimiseksi.

Tunnistamistietoja saa käsitellä vain teleyrityksen, lisäarvopalvelun tarjoajan, yhteisötilaajan ja tilaajana olevan oikeushenkilön palveluksessa oleva sekä näiden lukuun toimiva luonnollinen henkilö, jonka tehtävänä on käsitellä tietoja tässä luvussa erikseen säädettyjen tarkoitusten toteuttamiseksi.

Aikaisempi laki (vuodelta 2004) ei tuntenut käsitettä ”lisäarvopalvelun tarjoaja”. Operaattorit siis estivät lisäarvopalvelun tarjoajilta toiminnan televerkossa esimerkiksi vikatilanteiden selvittämiseksi.

Käytännössä tämä tuli esille ADSL yhteyksien katkeamisen yhteydessä. Rupea siinä sitten soitteleen Soneralle että yhteysnumerolla nnnn ei vastaa, onko kaivuri käyny paikalla vai miksei homma toimi.

Kun selvität oman liittymän tilaa ei ongelmaa ole esiintynyt, ongelma oli vain kaikilla kolmansilla osapuolilla jotka koittivat hoitaa tehtäviään joihin asiakaat ne oli valtuuttanut.

www.puhakka.fi domainissa sattuneen tietokadon takia kaikki aikaisemmat postaukset ponkaisivat linnunradalle Millway ravintolan parkkeeraustilaan.

Koitamme nyt uudestaan. Jos tiedot nyt katoavat, voi vain syyttää itseää. 😉