Comment puis-je utiliser FileSystemObject en VBA?

Il y a une chose que j'ai besoin de référence? Comment puis-je l'utiliser:

Dim fso As New FileSystemObject
Dim fld As Folder
Dim ts As TextStream

J'obtiens une erreur car il ne reconnaît pas ces objets.

InformationsquelleAutor l--''''''---------'''''''''''' | 2010-07-13

172

Dans Excel, vous devez définir une référence pour les scripts VB la bibliothèque run-time.
Le fichier est généralement situé à \Windows\System32\scrrun.dll
- Pour faire référence à ce fichier, la charge de la
  Visual Basic Editor (ALT+F11)
- Sélectionnez Outils > Références dans le menu déroulant
- D'une liste de références disponibles sera affichée
- Cochez la case à côté de"Microsoft Scripting Runtime'
- Le nom complet et le chemin de la scrrun.dll fichier sera affichée en dessous de la zone de liste
- Cliquez sur le OK bouton.
Cela peut aussi être fait directement dans le code si l'accès au modèle objet VBA a été activée.

L'accès peut être activée en cochant la case Trust access to the VBA project object model trouvé à Fichier > Options > Trust Center > Centre de gestion de Paramètres > Paramètres des Macros

Pour ajouter une référence:
```
Sub Add_Reference()

    Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll"
'Add a reference

End Sub
```
Pour supprimer une référence:
```
Sub Remove_Reference()

Dim oReference As Object

    Set oReference = Application.VBE.ActiveVBProject.References.Item("Scripting")

    Application.VBE.ActiveVBProject.References.Remove oReference
'Remove a reference

End Sub
```
- Que faites-vous sur un Mac?
- N'est-il pas un moyen de le faire via la ligne de commande, comme dans les, notamment une bibliothèque ou quelque chose?
- Est-il un moyen d'AUTO cochez la case "Microsoft Scripting Runtime'? pour TOUS les fichiers Excel? Je suis à l'aide d'Excel 2016
- Jetez un oeil à la accepté de répondre à cette question. stackoverflow.com/questions/9879825/...
InformationsquelleAutor Robert Mearns
12

Ces gars-là ont d'excellents exemples de la façon d'utiliser le système de fichiers de l'objet http://www.w3schools.com/asp/asp_ref_filesystem.asp
```
<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%> 
```
- Cet extrait de code suivant montre l'utilisation de l'OFS en ASP/IIS pas excel
InformationsquelleAutor Gerald Ferreira
12

Dans excel 2013, la création de l'objet string est:
```
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
```
à la place du code dans la réponse ci-dessus:
```
Dim fs,fname
Set fs=Server.CreateObject("Scripting.FileSystemObject")
```
- pour être un peu plus explicite, j'ai l'habitude de le voir comme Dim fso As Object
InformationsquelleAutor Stefano Spinucci

Après l'importation de l'exécution de scripts comme décrit ci-dessus, vous avez à faire un peu légère modification pour qu'il fonctionne sous Excel 2010 (ma version). Dans le code suivant, j'ai aussi ajouter le code utilisé à l'utilisateur de choisir un fichier.

Dim intChoice As Integer
Dim strPath As String

' Select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

' Show the selection window
intChoice = Application.FileDialog(msoFileDialogOpen).Show

' Get back the user option
If intChoice <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Else
    Exit Sub
End If

Dim FSO As New Scripting.FileSystemObject
Dim fsoStream As Scripting.TextStream
Dim strLine As String

Set fsoStream = FSO.OpenTextFile(strPath)

Do Until fsoStream.AtEndOfStream = True
    strLine = fsoStream.ReadLine
    ' ... do your work ...
Loop

fsoStream.Close
Set FSO = Nothing

Espère que ça aide!

En ce qui concerne meilleur

Fabio

InformationsquelleAutor FIRE FOX

1

Après l'ajout de la référence, j'ai dû utiliser
```
Dim fso As New Scripting.FileSystemObject
```
InformationsquelleAutor thedanotto

Vous devez vous connecter pour publier un commentaire.