Работа с деревом каталога

StrFileName = Application.GetOpenFilename

Диалог открытия файла. Закрытие файла без сохранения

Sub OpenChangeClose()

Do

fName = Application.GetOpenFilename

Loop Until fName <> False

MsgBox "Opening " & fName

Set myBook = Workbooks.Open(FileName:=fName)

myBook.Close savechanges:=False

End Sub

_______________________________________________________________________________

Диалог выбора файла и процедура открытия файла

Sub ccc()

Do

fName = Application.GetOpenFilename

Loop Until fName <> False

MsgBox "Opening " & fName

Set myBook = Workbooks.Open(FileName:=fName)

End Sub

___________________________________________________________________

Работа с файлом шаблоном

Workbooks.Open FileName:=path_x + bookRazrabTempl

Workbooks(bookRazrabTempl).Activate

ActiveWorkbook.SaveAs FileName:=path_x + bookRazrab

Закрытие файлов с сохранением и без

For i = 1 To all

Workbooks(mybook(i)).Close SaveChanges:=True

Next I

__________________________________________________________________________________

Диалог сохраниения файла

Sub CreateAndSave()

Set newBook = Workbooks.Add

Do

fName = Application.GetSaveAsFilename

Loop Until fName <> False

newBook.SaveAs FileName:=fName

End Sub

___________________________________________________________________________________

Копирование и удаление файла

FileCopy NastrFileT, NastrFile ‘копирование файла NastrFileT в файла NastrFile

Kill (NastrFileT) ‘удаление файла NastrFileT

___________________________________________________________________

Поиск подстроки в строке

dim N(2) as double

p1 - начальная позиция поиска

p2 - найденная позиция

IStr - искомая строка

StrBuf - строка источник

p2 = InStr(p1, StrBuf, IStr)

___________________________________________________________________

Разбор строки

Dim MyArray() as String

StrBuf = "1232 12313 243 sdfs"

MyArray = split(StrBuf," ") ' разбор

sz = UBound(MyArray) ' количество найденных фрагментов

___________________________________________________________________

Доступ к ячейке листа

ActiveWorkbook.worksheets("sheet1").Activate

cells(1,3).value =5

___________________________________________________________________

Сортировка ячеек по значениям

Sub SortRange()

worksheets("Лист2").Range("a1:c5").Sort _

key1:=worksheets("Лист2").Range("a1"), order1:=xlDescending

End Sub

___________________________________________________________________

Запуск при открывании рабочей книги

‘MicrosoftExcelObject

‘ThisWorkbook

Private Sub Workbook_Open()

Call Start

End Sub

__________________________________________________________________________________

UserForm1.Show ‘показать форму

UserForm1.Hide ‘скрыть форму

UserForm1.Repaint ‘обновить изображение формы (делается после обновления 'значений полей)

___________________________________________________________________________________

Заполнение ComboBox

Dim Famil(3) as String

Famil(1) = “mother”

Famil(2) = “father”

Famil(3) = “Vasya”

For i = 1 To 3

UserForm1.ComboBox1.AddItem (Famil(i))

Next i

UserForm1.ComboBox1.Value = Famil(1)

Workbooks(“proba.xls”).Worksheets("Error").Activate

Cells(13, 1).Value = UserForm2.ComboBox1.ListIndex + 1

____________________________________________________________________________________