Просто код для подсчета файлов в папке, в папке один файл с макросом, однако при подсчете выдает 2, если два файла, то считает, что 3, почему так не понимаю.

Public Sub Total_Workbooks_in_File()
Dim NamePath As String, NumberOfFiles As Integer, FilePath As Object

    NamePath = ThisWorkbook.Path
    Set FilePath = CreateObject("Scripting.FileSystemObject")
    NumberOfFiles = FilePath.GetFolder(NamePath).Files.Count

End Sub

(читать всё…)

Нужно ли чистить память локальных переменных, используемых в функциях?

Особенно интересует нужно ли освобождать объекты, типа TStringList.

Pavia

Нужно. Исключение строки и динамическские массивы.

тема на форуме

alexinspir

Есть несколько путей, опишу наиболее правильный:
1. предположим имеется такая структура каталогов

В папке bin храняться откомпилированные классы(или пакеты с классами)
В папке lib хранятся библиотеки которые необходимо подключить
В папке src исходники приложения.

Открываем консоль и переходим в папку project
Далее компилируем:

Выполняем так:

Т.е. Подключая библиотеки типа jar и zip, надо учитывать что это архивы, а архивы интерпретируются как папки, вследствие чего подключать их надо, указывая в пути имя архива.

Данный пример для posix оболочек (*nix), для винды следует заменить все двоеточия на точку с запятой(: -> ;).

Подвопрос:
А есть способы проще?

Ответ:
Да, есть: можно использовать IDE (IntelliJ IDEA, Eclipse, NetBeans) и/или менеджеры сборок (Maven, Gradle, Ant).

тема на форуме

Как узнать имя компонента зная его координаты на форме? (читать всё…)

Сегодня мне потребовалось решить несколько проблем при вёрстке собственной простенькой формы авторизации для моего очередного проекта.

Предо мной стояло всего две задачи:
1 — форма должна быть отцентрирована по горизонтали и по вертикали;
2 — поля ввода логина и пароля должны быть выровнены относительно друг друга, а лейбы с подписями должны «обтекать» эти поля ввода.

При решении первой задачи я нарвался на помесь CSS и использования тегов <table> и <div> …

Как можно реализовать поставленную мною задачу более «правильно» что ли ?

(читать всё…)

Насчёт запуска какого нить файла понятно:
ShellExecute или WinExec

А как выполнять другие команды cmd с параметрами?
Например:

del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*
Или
copy /y file1.txt file2.txt
или
MKDIR  Newfolder
или
XCOPY /E/G/H/Y 'D:\myfiles\*.*' 'j:\backup\myfiles\*.*'
или
ATTRIB -R-A-S-H C:\folder /D
Ну и т.д.

Если можно конкретные примеры.

(читать всё…)

К примеру есть 57 вопросов из которых должны отобразится всего 15 у пользователя на экране.

Каждый следующий вопрос должен появляться при нажатии кнопки.
Но как показала практика из за генерации случайных чисел вопросы могут выпадать по два раза подряд одни и те же. Или за все время прохождения теста.

Вопрос, как сделать проверку чисел чтобы не выводить значения которые уже были?

(читать всё…)

Задача такая: Есть 10 листов из них 5 вносятся данные из другой таблицы, в других 5 листах идет переработка под нужный вид.
Хранить их необходимости нет обработанные данные копируются в другой документ. Для удобства хотелось сделать чтобы при активации 5 го листа данные в первых 4 уже очищались

(читать всё…)

Задачка у меня в том чтобы вернуть имя файла если в данном файле содержится искомый текст, просмотрев все файлы которые есть в папке.
Подробнее: есть функция для получения значения из закрытой книги. Пишу макрос который перебирает все книги в папке и если в каком-то из файлов в любом из листов в ячейке C4 встретится искомый текст, то он вернет его имя. Весь затык в том как прописать в данном случае поиск во всех листах файла…

(читать всё…)

Подскажите, пожалуйста, как программно сделать вот такую процедурку:
имеется файл Excel
состоит из 4 столбцов и 20 000 строк
Необходимо макросом разбить его на части по 500 строк каждый.
после разбивки должно получиться 40 файлов.
Скажем, имеется файл январь-2009.хls
после разбивки нужно что бы получилось январь-2009-1.xls
январь-2009-2.xls……………….январь-2009-40.xls

(читать всё…)