Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Halloween
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Разбиение неравномерного файла на части строго по 9.8-9.9 Мб
 
#
09.02.2016 01:13:16
Апострофф, так нюанс в том, что мы можем проверить размер файла только после сохранения... Что LOF, что FileLen
 
Перейти    
Разбиение неравномерного файла на части строго по 9.8-9.9 Мб
 
#
09.02.2016 01:11:04
Цитата
Казанский написал:
Это на втором листе. А первый лист зачем нужен? Удалил первый лист, сохранил - вес файла 6 МБ вместо 16.
Да, забыл удалить лист. Но это значения не имеет в данном случае. Из 6 Мб xlsx получается 50-60 Мб csv и задача актуальна. Вообще размер исходных файлов больше, я прислал только часть.

Цитата
Казанский написал:
Можно в макросе собирать текст очередного артикула в строку, смотреть ее длину и принимать решение - записать ее в текущий файл или открывать следующий.
Спасибо Вам за идею, но не сработает :)
Во-первых, будет работать ещё дольше, во-вторых, длина переменной типа string — ограничена и причём совсем не космическими числами (а в некоторых ячейках у нас вполне себе приличные значения).
 
Перейти    
Разбиение неравномерного файла на части строго по 9.8-9.9 Мб
 
#
08.02.2016 17:32:45
Catboyun, сам макрос-то написан и работает впринципе, но душа стремится к совершенству (может и напрасно) — в попытках зажать файл в эти рамки и чтобы работал быстрее, огласил пару вопросов...
 
Перейти    
Разбиение неравномерного файла на части строго по 9.8-9.9 Мб
 
#
08.02.2016 15:13:52
Привет, планета! Не справляюсь сам, нужна Ваша помощь...

Есть файл xlsx, если сохранить его в csv, то он получается (условно) 177 мегабайт. В каждой строке в столбце № 8 находится артикул товара и по столбцам другая информация по нему (довольно часто ситуация такова, что есть ряд строк с одним артикулом). Необходимо усложнить процесс сохранения так, чтобы макрос делил его на куски по 9.8-9.9 Мб (нежелательно чтобы было меньше, но впринципе возможно по надобности — если несущественно меньше; но меньше 10 Мб должно быть строго). Последний файл уже понятно сколько получится. То есть сложностей несколько:
  1. Чтобы файлы делились только "блоками" (каждый набор строк, относящихся к одному артикулу — отдельный блок)
  2. Кажется, на vba нет функции, позволяющей получить текущий размер файла до его сохранения. А каждое сохранение — пара секунд... Какие есть тут идеи?
  3. Вообще круто было бы иметь возможность при каком-то промежуточно заполненном xlsx-файле иметь возможность понимать, сколько он будет весить в текстовом формате (csv или Текст Юникод). Есть у кого какие полезные мысли?..
Вот сам файл: http://my-files.ru/6gs86s
 
Перейти    
Аналог ++ в VBA Excel
 
#
19.01.2016 22:12:46
ZVI, премного благодарен, ознакомлюсь!
 
Перейти    
Аналог ++ в VBA Excel
 
#
19.01.2016 21:54:35
Две привычки: сишная и минимизировать код. Мелочь, о которой каждой раз думаешь, сповадила  :)
 
Перейти    
Объявление переменной и задание ей начального значения
 
#
19.01.2016 19:06:59
Игорь, большое спасибо за подробный исчерпывающий ответ!
 
Перейти    
Аналог ++ в VBA Excel
 
#
19.01.2016 19:05:46
Спасибо, Андрей VG! То есть точно ничего такого нет, можно даже не искать, не мучаться?
 
Перейти    
Аналог ++ в VBA Excel
 
#
19.01.2016 18:12:06
Вероятно, я не так выразился. Задача — максимально коротко записывать единички в счётчик i. Всякий раз, когда сработало условие. For это другое.
i = i + 1 довольно коротко, но после си так и тянет написать i++
 
Перейти    
Объявление переменной и задание ей начального значения
 
#
19.01.2016 18:09:12
Подскажите, пожалуйста, можно ли как-то на VBA Excel после объявления переменной тут же присвоить ей значение. Что-то вроде как на обычном бэйсике Dim x As Integer = 10 не срабатывает — компилятор ругаеццо. Цель — максимальная экономия места на экране, чтобы не создавать отдельную строку для присваивания значения.
 
Перейти    
Аналог ++ в VBA Excel
 
#
19.01.2016 18:05:50
Простой вопрос: подскажите, пожалуйста, может, есть на vba excel аналог оператора ++ на С++?
Простой пример: чтобы не писать i = i + 1, а просто i++
 
Перейти    
Как отключить выход текста за правую границу ячейки?
 
#
11.12.2015 20:21:50
Согласен с The_Prist, поэтому и предложил свой вариант выше. Наиболее оптимальный, но неидеальный в случае копирования ячеек, к которым это дело применено (с сохранением форматирования): высота строки при этом не копируется же, а перенос по словам копируется...
 
Перейти    
Как отключить выход текста за правую границу ячейки?
 
#
10.12.2015 18:29:31
Вот лучшее решение:

0) выравнивание по вертикали — по верхнему краю
1) ставим перенос слов
2) высота строки = 15 (или сколько надо, в зависимости от ситуации)
 
Перейти    
Проблема с сортировкой чисел и текста, сортировка, сортировка чисел и текста
 
#
03.12.2015 18:12:23
А как можно сделать, чтобы сортировка на Листе 1 происходила по вручную отсортированному столбцу (согласно тому, как значения расположены в столбце А) на втором Листе ?
 
Перейти    
Сохранение спецсимволов в csv
 
#
02.12.2015 15:36:03
Hugo, спасибо за апгрейд с обжектом!)

Что касается решения kalbasiatka, при очень большом уважении, у меня оно не работает... Неужто у вас работает?

А если не заморачиваться с тем, чтобы csv назывался также, как исходный файл, а просто задать его имя вручную, то в предложенном мной конечном варианте и вовсе одна строка по сути. А хотя вот одна строка даже с этой "заморочкой":
Код
ThisWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", ".csv"), FileFormat:=xlUnicodeText
Чисто гипотетически попробую сегодня его вариант до ума довести — но с учётом того, что я просто для примера прикрепил файл с 3-мя спецсимволами, а файлы, которые нам нужно пересохранять в csv намного больше и сложнее — вряд ли удастся уложиться в пару строк. Думается, использовать идею kalbasiatka имеет смысл если только само решение качественнее так сказать, лучше — объясните чем, пожалуйста, если это так.
Изменено: Halloween - 02.12.2015 15:48:07
 
Перейти    
Сохранение спецсимволов в csv
 
#
02.12.2015 04:58:52
Оптимальное и окончательное решение проблемы (надеюсь, кому-то пригодится):
Код
Sub Macro()
    Dim NewFileName As String, fso As New Scripting.FileSystemObject
    
    NewFileName = ThisWorkbook.Path & "\" & fso.GetBaseName(ActiveWorkbook.Name) & ".csv"
    
    ActiveSheet.SaveAs FileName:=NewFileName, FileFormat:=xlUnicodeText, CreateBackup:=False
    
    Application.Quit
    ActiveWorkbook.Close False
End Sub
Просто пересохраняет исходный *.xlsx в этой же директории и с этим же названием, но в формате *.csv и с кодировкой UTF-8 (в которой спецсимволы, например, дроби, сохраняются и отображаются корректно).

Единственное — чтобы получить имя файла без расширения используется способ, для которого нужно подключить одну библиотеку в VBA Editor (поставить галочку в Tools —> References). Скрин прикрепляю.
 
Перейти    
Сохранение спецсимволов в csv
 
#
01.12.2015 18:31:50
Конкретно этот макрос вообще непонятно что берёт... Он не открывает никакой файл для считывания, просто открывает новый csv и сохраняет его кладя в него переменную text_ которая пустая.

А задача вроде бы решилась простым сохранением xlsx как текст unicode, а затем просто меняем расширение на csv
 
Перейти    
Сохранение спецсимволов в csv
 
#
01.12.2015 18:27:26
Цитата
kalbasiatka написал: Макрос берёт 3 ячейки
Только он их не берёт)
 
Перейти    
Сохранение спецсимволов в csv
 
#
01.12.2015 18:25:26
Секунду, кажется, решил вопрос. Всё просто.
 
Перейти    
Сохранение спецсимволов в csv
 
#
01.12.2015 18:20:04
Основная проблема в том, что после обработки макросом csv-файла он получается пустым, а далее я руками снова туда дроби вставляю перед сохранением как txt. Это нам не подходит, значения со спецсимволами другой макрос передаёт, вручную там не вмешаешься, да и не нужно...
 
Перейти    
Сохранение спецсимволов в csv
 
#
01.12.2015 17:41:27
Сперва применением макроса (файл csv при этом полностью пустым становится — почему?), затем открытием файла csv и копированием в него спецсимволов, затем сохранением его как Текст Юникод (*.txt), а затем ручной сменой расширения txt на csv спецсимволы в csv отображаются корректно. А можно ли всё это делать сразу автоматом из исходного файла xlsx?
 
Перейти    
Сохранение спецсимволов в csv
 
#
01.12.2015 16:29:43
Привет, планета! Столкнулся с такой проблемой, что пересохраняя *.xlsx в *.cvs (офис 16-ый) символы дробей (½, ⅓, ⅔) кодируются как знаки вопроса (?).
Если кто-то сталкивался с этим делом и знает решение — облегчите, пожалуйста, поиски, затянувшиеся на второй час... Перепробовал несколько найденных предложенных вариантов — не помогло. Прикрепляю файл для примера
 
Перейти    
Как отключить диалоговые окна при открытии файла?
 
#
23.11.2015 12:44:58
:idea: Прочёл, вы абсолютно правы. Впредь обещаю внимательнее относиться к синтаксису методов.
Тема исчерпана, думаю.
 
Перейти    
Как отключить диалоговые окна при открытии файла?
 
#
23.11.2015 12:30:34
JayBhagavan, к сожалению, файлы приходят от тех, на кого нельзя повлиять и они уже приходят некоторые с этими связями...

The_Prist, открываю кодом:
Код
file = Dir(path & "*.xlsx")
Set WB = Application.Workbooks.Open(file)
 
Перейти    
Как отключить диалоговые окна при открытии файла?
 
#
23.11.2015 12:11:31
Спасибо, Skif-F, решение хорошее! Для частного пользования  :)

А вот как быть, если файл надо передавать на много компов и не хочется, чтобы там вылетало обновление связей? Может, кто-то из уважаемых форумчан знает, как это дело программно отрубить?
 
Перейти    
Как отключить диалоговые окна при открытии файла?
 
#
23.11.2015 09:33:09
Код
Application.DisplayAlerts = False
...
Application.DisplayAlerts = True

почему-то не срабатывает для данного вопроса от экселя: http://i.imgur.com/5fqi9kE.png
 
Перейти    
Как открыть несколько файлов, Только макросом
 
#
21.11.2015 18:26:15
Всё ясно с этим, спасибо! Двоеточием на VBA разделяются команды, написанные на одной строчке — как точка с запятой на С++, получается?
А что за команда ExecuteExcel4Macro? Качественно загуглить не вышло...
Код
Cells(i, 4) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "Лист1'!" & Range("H13").Range("A1").Address(, , xlR1C1))
 
Перейти    
Подсчёт числа символов в ячейке
 
#
21.11.2015 18:22:28
Заголовки всегда в первой строке. Заголовка Grid Value может не быть. А может их быть два.
 
Перейти    
Как открыть несколько файлов, Только макросом
 
#
21.11.2015 04:29:11
А что значит строчка:
Код
Rows("2:" & Rows.Count).ClearContents: file = Dir(path & "*.xls"): i = 10
Не могу разобраться...
 
Перейти    
Подсчёт числа символов в ячейке
 
#
21.11.2015 02:52:42
Всем спасибо! Сработало вот так:
Код
For Each Cell In Range(ra.Address).Cells
    If Len(Cell.Value) <> 3 Then
        myra = myra + 1
    End If
Next Cell
 
Перейти    
Страницы: 1 2 След.
Наверх