Visualizzazione dei risultati da 1 a 2 su 2

Discussione: saveas

  1. #1
    Utente di HTML.it L'avatar di dricky
    Registrato dal
    Sep 2005
    Messaggi
    54

    saveas

    ciao a tutti io avrei bisogno di generare e salvare un file word (con access) utilizzando un modello *.dot di riferimento.

    Ho provato cosi' ma mi da errore sulla saveas.

    qualcuno saprebbe dirmi che c'eč che non va?


    Dim word 'the Word application
    Dim doc 'the Word document
    Dim selection 'text selection
    Dim fs 'the File system
    Dim work_dir 'the directory for storing files
    Dim folder, folders 'used when creating the new file
    Dim I, j 'indexes for arrays
    Dim Nix As Variant
    Dim modello As String
    Dim nomefile As String
    Dim ReplSel As Boolean
    Dim fld As DAO.Field

    modello = "c:\MODELLO.dot"
    nomefile = "C:\test.doc"

    Set word = CreateObject("word.application")
    Set fs = CreateObject("Scripting.FileSystemObject")




    Dim nameuser
    nameuser = "test.doc"

    work_dir = "C:\"




    Set doc = word.Documents.Add(modello)
    Set selection = word.selection

    'selection.TypeText "An Automated Word Report"
    'selection.TypeParagraph

    If Not fs.folderexists(work_dir) Then
    folders = Split(work_dir, "\")
    For I = 0 To UBound(folders) - 1
    folder = ""
    For j = 0 To I
    folder = folder & folders(j) & "\"
    Next
    If Not fs.folderexists(folder) Then
    fs.createfolder folder
    End If
    Next
    End If

    If Len(Trim(Nz(nameuser))) = 0 Then
    Nix = MsgBox("No valid filename", vbCritical, "Cancel")
    Exit Sub
    Else
    If File_exist(work_dir & nameuser) Then
    Nix = MsgBox("Il file e' gia' presente" & _
    vbCrLf & "nome del file : " & work_dir & nameuser & vbCrLf & _
    "vuoi sovrascrivere il file ?", _
    vbYesNo + vbCritical, "WinWord - file aready exists")
    If Nix = vbNo Then
    Exit Sub
    End If
    End If
    End If

    word.Visible = True
    'doc.SaveAs (work_dir & nameuser)
    doc.SaveAs (nomefile)
    'word.Quit
    Set fs = Nothing
    Set word = Nothing

    'Dim oApp As Object
    'Set oApp = CreateObject("Word.Application")
    'oApp.Visible = True
    'oApp.Documents.Add DocumentType:=wdNewBlankDocument

    End Sub

    grazie per l'attenzione

    Ricky

  2. #2
    Moderatore di Programmazione L'avatar di LeleFT
    Registrato dal
    Jun 2003
    Messaggi
    17,130

    Moderazione

    Sezione errata (VB ha un forum dedicato)
    Manca il linguaggio nel titolo
    Manca l'indicazione della versione del linguaggio
    Mancano i tag CODE, obbligatori quando si posta il codice per renderlo comprensibile
    Il titolo č inadeguato (vedi regolamento)

    Insomma... fai prima ad aprire una nuova discussione nel forum giusto (VisualBasic e .NET Framework), seguendo le indicazioni indicate nel Regolamento (link in rilievo).

    Qui chiudo.


    Ciao.
    "Perchč spendere anche solo 5 dollari per un S.O., quando posso averne uno gratis e spendere quei 5 dollari per 5 bottiglie di birra?" [Jon "maddog" Hall]
    Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2020 vBulletin Solutions, Inc. All rights reserved.