Introducere manuala nume fisier in access vba

#1
adiharan

Posted 19 December 2023 - 18:42

Oldest member. Probably

Grup: Senior Members
Posts: 3,720
Înscris: 24.03.2002

Am o aplicatie facuta in access din care rezulta un xml, care genereaza niste date.

Dim out_file
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "D:\Dropbox\facturare\2024\factura.xml"
    Set f = fs.GetFile("D:\Dropbox\facturare\2024\factura.xml")
    Set out_file = f.OpenAsTextStream(2, -2)

Aici, imi genereaza automat fisierul "factura.xml". Eu as vrea sa-mi arate un dialog, orice, in care de fiecare data sa scriu eu numele fisierului, nu toate sa fie factura.xml

Back to top

#2
MarianG

Posted 19 December 2023 - 18:47

be that as it may

Grup: Moderators
Posts: 31,445
Înscris: 10.08.2005

Dialogul ala se numeste InputBox
https://learn.micros...putbox-function

https://support.micr...f1-4786575314d9

Edited by MarianG, 19 December 2023 - 18:48.

Back to top

#3
pasilla

Posted 19 December 2023 - 18:54

Superior Member

Grup: Senior Members
Posts: 55,778
Înscris: 31.03.2012

Cred ca poti modifica numele si sa fie diferit de fiecare data (in functie de data/ora/parametru)

Back to top

#4
adiharan

Posted 19 December 2023 - 18:57

Oldest member. Probably

Grup: Senior Members
Posts: 3,720
Înscris: 24.03.2002

Mersi, asta e clar. Dar nu stiu cum sa trimit variabila mai departe, in fs.CreateTextFile "D:\Dropbox\facturare\2024\factura.xml"

Back to top

#5
MarianG

Posted 19 December 2023 - 19:11

be that as it may

Grup: Moderators
Posts: 31,445
Înscris: 10.08.2005

MyValue = InputBox(Message, Title, Default)

Concatenezi MyValue cu restul locatiei
"D:\Dropbox\facturare\2024\" & MyValue

inainte de concatenare te asiguri ca extensia exista si e cea care trebuie,
sau faci modificari incat sa fie valide

path = "D:\Dropbox\facturare\2024\"
filaname = InputBox();
REM check and clean
full_path = path & filename
fs.CreateTextFile full_path

Edited by MarianG, 19 December 2023 - 19:11.

Back to top

#6
adiharan

Posted 19 December 2023 - 19:20

Oldest member. Probably

Grup: Senior Members
Posts: 3,720
Înscris: 24.03.2002

Da, mersi, am reusit. Nu ma inteleg cu concatenarile astea nicicum.
fs.CreateTextFile "D:\Dropbox\facturare\2024\" & MyValue & ".xml"

Back to top

#7
MarianG

Posted 19 December 2023 - 20:19

be that as it may

Grup: Moderators
Posts: 31,445
Înscris: 10.08.2005

looks good

Back to top

#8
adiharan

Posted 20 December 2023 - 04:46

Oldest member. Probably

Grup: Senior Members
Posts: 3,720
Înscris: 24.03.2002

Bun, asa merge. Dar am gasit ceva care arata mai bine. Imi deschide fereastra de dialog, dar nu face apoi nimic. Sau gresesc eu ceva? Imi lipsesc oare referinte?

Sub CreateTextFileFromDialog()
    Dim filePath As String
    Dim fileName As String
    Dim fileDialog As Object
    Dim fso As Object
    Dim file As Object

    Set fileDialog = Application.fileDialog(3)
    Set fso = CreateObject("Scripting.FileSystemObject")

    If fileDialog.show = True Then
    filePath = fileDialog.SelectedItems(1)
    fileName = fso.GetFileName(filePath)
    Set file = fso.CreateTextFile(fileName, True)
    MsgBox fileName
    file.Close
    End If
End Sub

Back to top

#9
MarianG

Posted 20 December 2023 - 07:59

be that as it may

Grup: Moderators
Posts: 31,445
Înscris: 10.08.2005

acel dialog doar te ajuta sa creezi fisierul, tot trebuie sa scrii date in el

https://learn.micros...eDialog#remarks

Quote

The msoFileDialogOpen and msoFileDialogSaveAs constants are not supported in Microsoft Access.
Note that when a file is selected using the File open Dialog, the directory containing the selected file will become the current directory for the process. This means that the directory will be locked until the current diectory is changed, or the process terminates. This will prevent the directory from being deleted, moved, or renamed.

Edited by MarianG, 20 December 2023 - 08:00.

Back to top

#10
adiharan

Posted 20 December 2023 - 09:03

Oldest member. Probably

Grup: Senior Members
Posts: 3,720
Înscris: 24.03.2002

Da, stiu. Numai ca nu-l creeaza.

Back to top

#11
adiharan

Posted 20 December 2023 - 11:24

Oldest member. Probably

Grup: Senior Members
Posts: 3,720
Înscris: 24.03.2002

Asa merge

Dim rs
    Dim out_file
    Dim fDialog As filedialog
    Dim filePath As String
    Dim fileName As String
    Dim fso As Object
    Dim file As Object

    Set fDialog = Application.filedialog(msoFileDialogSaveAs)
    fDialog.Title = "Save As"
    'fDialog.InitialFileName = "C:\users\adi\desktop\"
    fDialog.Show

    If fDialog.SelectedItems.Count > 0 Then
    filePath = fDialog.SelectedItems(1)
    fileName = Right(filePath, Len(filePath) - InStrRev(filePath, "\"))
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.CreateTextFile(fileName & ".xml")
    file.Close
    Set f = fso.GetFile(fileName & ".xml")
    'MsgBox fileName
    Set out_file = f.OpenAsTextStream(2, -2)
    End If

mersi

Back to top

Anunturi

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

Introducere manuala nume fisier in access vba

#1 adiharan Posted 19 December 2023 - 18:42

#2 MarianG Posted 19 December 2023 - 18:47

#3 pasilla Posted 19 December 2023 - 18:54

#4 adiharan Posted 19 December 2023 - 18:57

#5 MarianG Posted 19 December 2023 - 19:11

#6 adiharan Posted 19 December 2023 - 19:20

#7 MarianG Posted 19 December 2023 - 20:19

#8 adiharan Posted 20 December 2023 - 04:46

#9 MarianG Posted 20 December 2023 - 07:59

#10 adiharan Posted 20 December 2023 - 09:03

#11 adiharan Posted 20 December 2023 - 11:24

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
adiharan

Posted 19 December 2023 - 18:42

#2
MarianG

Posted 19 December 2023 - 18:47

#3
pasilla

Posted 19 December 2023 - 18:54

#4
adiharan

Posted 19 December 2023 - 18:57

#5
MarianG

Posted 19 December 2023 - 19:11

#6
adiharan

Posted 19 December 2023 - 19:20

#7
MarianG

Posted 19 December 2023 - 20:19

#8
adiharan

Posted 20 December 2023 - 04:46

#9
MarianG

Posted 20 December 2023 - 07:59

#10
adiharan

Posted 20 December 2023 - 09:03

#11
adiharan

Posted 20 December 2023 - 11:24