Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Получить путь к файлу через диалоговое окно. Возвращает строку (путь к файлу)
- Function ChooseFile$()
- Dim file$: file = Application.GetOpenFilename("Все файлы (*.*),*.*", , "Выбор файла")
- ChooseFile = IIf(file = "False", "", file)
- End Function
- Получить путь к папке через диалоговое окно. Возвращает строку (путь к файлу)
- Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String = "c:\") As String
- GetFolderPath = "": PS = Application.PathSeparator
- With Application.FileDialog(msoFileDialogFolderPicker)
- .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
- If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
- End With
- End Function
- Разделитель
- Dim a() As String
- a = Split("vremya ne zhdet" ,"-",)
- MsgBox a(0) & vbNewLine & a(1) & vbNewLine & a(2)
- Перебор массива
- For Each Element in arrTemp
- Element = Sqr(Element)
- Next
- Перебор символов с строке
- dim stroka as string
- stroka="<kf ,kf бла бла"
- for i to Len(stroka)
- Msgbox mid(stroka,i,1)
- next i
- Открыть файл для чтения
- Open M For Input As #ff – m-путь к файлу
- Dim s As String
- Input #ff, s - считать строку
- MsgBox s
- Close #ff
- Открыть файл для чтения doc
- With GetObject("c:\temp\mydoc.docx") 'путь к файлу
- myVar = .Range.Text 'текст файла
- .Close 0
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement