Advertisement
Guest User

Untitled

a guest
Jun 26th, 2019
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Получить путь к файлу через диалоговое окно. Возвращает строку (путь к файлу)
  2. Function ChooseFile$()
  3.     Dim file$: file = Application.GetOpenFilename("Все файлы (*.*),*.*", , "Выбор файла")
  4.     ChooseFile = IIf(file = "False", "", file)
  5. End Function
  6. Получить путь к папке через диалоговое окно. Возвращает строку (путь к файлу)
  7. Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String = "c:\") As String
  8.     GetFolderPath = "": PS = Application.PathSeparator
  9.     With Application.FileDialog(msoFileDialogFolderPicker)
  10.         .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
  11.         If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
  12.     End With
  13. End Function
  14. Разделитель
  15. Dim a() As String
  16. a = Split("vremya ne zhdet" ,"-",)
  17. MsgBox a(0) & vbNewLine & a(1) & vbNewLine & a(2)
  18.  
  19. Перебор массива
  20. For Each Element in arrTemp
  21.   Element = Sqr(Element)
  22. Next
  23. Перебор символов с строке
  24. dim stroka as string
  25. stroka="<kf ,kf бла бла"
  26. for i to Len(stroka)
  27. Msgbox mid(stroka,i,1)
  28. next i
  29.  
  30. Открыть файл для чтения
  31. Open M For Input As #ff – m-путь к файлу
  32.       Dim s As String
  33.       Input #ff, s  - считать строку
  34.       MsgBox s
  35.       Close #ff
  36. Открыть файл для чтения doc
  37. With GetObject("c:\temp\mydoc.docx") 'путь к файлу
  38.  myVar = .Range.Text 'текст файла
  39.  .Close 0
  40. End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement