maza11 (Все сообщения пользователя)

Сжать таблицу (очень большой объем при небольшой таблице)

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 13.12.2016 15:28:13 vikttur, огромное спасибо, макрос отработал, документ стал 36 кб в формате XLS
	Перейти

Сжать таблицу (очень большой объем при небольшой таблице)

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 13.12.2016 15:23:10 выделил нажал удалить, завис ексель крепко накрепко, минут на 20 уже. Буду макросом пробовать
	Перейти

Сжать таблицу (очень большой объем при небольшой таблице)

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 13.12.2016 13:57:38 вот документ 1 лист с одной таблицей http://rgho.st/private/8MP65vhKJ/9f0b09a1045143d8f8ea647f71978f05 весит 4,5 мб что с ним не так ? p.s. макром для похудения пробовал, безрезультатно Изменено: maza11 - 13.12.2016 13:58:55
	Перейти

Сжать таблицу (очень большой объем при небольшой таблице)

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

13.12.2016 11:09:30

читаю статью http://www.planetaexcel.ru/techniques/12/114/
после пункта "Удалить избыточное форматирование" документ стал еще больше, был 26 стал 32 мб

проделал все пункты кроме тех где нужна надстройка PLEX
документ остался размером 32 мб

Перейти

Сжать таблицу (очень большой объем при небольшой таблице)

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

13.12.2016 10:33:03

формат XLS ,при сохранении его в XLSX документ становится меньше, но открывается так же тяжело и долго. если зайти внутрь документа
в папке график.xlsx\xl\drawings\ идут файлы drawing1.xml-drawing7.xml по 27-30 мб в итоге вся папка drawings занимает 200 мб в документе

как то это не нормально

Перейти

Сжать таблицу (очень большой объем при небольшой таблице)

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

13.12.2016 10:26:45

есть документ с таблицой графиков дежурств
простейшая табличка, маросов нет, занимает 26,7 мб

обычно при разрастании документов других, помогало открыть их в OpenOffice и сохранить. здесь при сохранении документ такого же размера остается.

Изменено: maza11 - 13.12.2016 15:37:08

Перейти

Печать со всех листов книги

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 05.11.2015 11:10:07 можно конечно ходить через Разметка страницы - Параметры страницы но по какой причине не появляется стандартный диалог печати Excel где все это удобно выбирать ???
	Перейти

Печать со всех листов книги

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 05.11.2015 10:58:15 а если нету стандартного диалога печати, а выводит вот так как задать печать вместить все на одну страницу ? Изменено: maza11 - 05.11.2015 10:59:04
	Перейти

Подобрать на определенную сумму из списка

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 06.08.2015 09:00:20 bedvit большое спасибо за готовый файл с решениями
	Перейти

Подобрать на определенную сумму из списка

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 05.08.2015 17:07:41 Имеется список накладных с суммами накладная1 - 20345,65 накладная1 - 250785,01 накладная1 - 345,9 и т.д. нужно подобрать накладных на определенную сумму, допустим на сумму 51000.50 с точностью до десятых копеек
	Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

21.07.2015 10:32:33

изначальный скрипт (оригинал) писался для того чтобы в накладных убирать логотип и некоторые строки, потом потребовалось менять еще и дату, вот на основе этого
скрипта я и делал, так вот бред заключается в том, что с логотипами и процентами теми которые мы
убирали изначально, он не сохраняет измененную дату, если
прогнать сначала скриптом убирающим их, а потом меняющим дату, то все ок

именно по этой причине в одних накладных работало, а в других нет.

Изменено: maza11 - 21.07.2015 10:34:13

Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

21.07.2015 09:49:37

изменил

Код
With .Worksheets(1).Range("A3")

все равно ошибка 800A03EC

похоже это ошибка уже не в скрипте т.к. те скрипты из которых брался код тоже стали эту ошибку выдавать на моменте сохранения, хотя они 100% рабочие, бред какой то уже

Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

21.07.2015 09:28:35

вот скрипт

Скрытый текст

Option Explicit
Dim strSourceFileSystemObject
Dim objFile
Dim objExcel

If WScript.Arguments.Count = 1 Then
strSourceFileSystemObject = WScript.Arguments.Item(0)

With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists(strSourceFileSystemObject) Then
Set objExcel = Nothing

For Each objFile In .GetFolder(strSourceFileSystemObject).Files
Select Case LCase(.GetExtensionName(objFile.Name))
Case "xls", "xlsx"
If objExcel Is Nothing Then
Set objExcel = WScript.CreateObject("Excel.Application")
End If

WorkingWithWorkbook objExcel, objFile
Case Else
' Nothing to do
End Select
Next

If Not objExcel Is Nothing Then
objExcel.Quit
Set objExcel = Nothing
End If
ElseIf .FileExists(strSourceFileSystemObject) Then

Set objFile = .GetFile(strSourceFileSystemObject)

Select Case LCase(.GetExtensionName(objFile.Name))
Case "xls", "xlsx"
With WScript.CreateObject("Excel.Application")
WorkingWithWorkbook .Application, objFile

.Quit
End With
Case Else
WScript.Echo "Source file [" & strSourceFileSystemObject & "] probably has not an Excel Workbook."
End Select

Set objFile = Nothing
Else
WScript.Echo "Can't find source file or source folder [" & strSourceFileSystemObject & "]."
WScript.Quit 2
End If
End with
Else
WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file or source folder>"
WScript.Quit 1
End If
WScript.Quit 0

'=============================================================================

Sub WorkingWithWorkbook(objExcel, objFile)
WScript.Echo objFile.Path

With objExcel
With .Workbooks.Open(objFile.Path)
With .Worksheets.Item(1)
.Shapes.Item("Picture -767").Delete
.Range("H4:I6").Select
objExcel.Selection.ClearContents
.Range("A1").Select

objExcel.Union(.Rows(.UsedRange.Rows.Count).EntireRow, .Rows(.UsedRange.Rows.Count -1).EntireRow).Delete

With .PageSetup
.Zoom = False
.FitToPagesWide = 1
End With

.PrintOut ,, 3
End With

.Save
.Close
End With
End With
End Sub

в нем я просто меняю эту часть

Скрытый текст
With .Workbooks.Open(objFile.Path) With .Worksheets.Item(1) .Shapes.Item("Picture -767").Delete .Range("H4:I6").Select objExcel.Selection.ClearContents .Range("A1").Select objExcel.Union(.Rows(.UsedRange.Rows.Count).EntireRow, .Rows(.UsedRange.Rows.Count -1).EntireRow).Delete With .PageSetup .Zoom = False .FitToPagesWide = 1 End With .PrintOut ,, 3 End With .Save .Close End With

на эту

Скрытый текст
With .Workbooks.Open(objFile.Path) With .Worksheets(1).Range("A4:I4") .Replace "02.07.2015", "09.07.2015" End With .Save .Close End With

получается

Скрытый текст

Option Explicit
Dim strSourceFileSystemObject
Dim objFile
Dim objExcel

If WScript.Arguments.Count = 1 Then
strSourceFileSystemObject = WScript.Arguments.Item(0)

With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists(strSourceFileSystemObject) Then
Set objExcel = Nothing
For Each objFile In .GetFolder(strSourceFileSystemObject).Files
Select Case LCase(.GetExtensionName(objFile.Name))
Case "xls", "xlsx"
If objExcel Is Nothing Then
Set objExcel = WScript.CreateObject("Excel.Application")
End If

WorkingWithWorkbook objExcel, objFile
Case Else
' Nothing to do
End Select
Next

If Not objExcel Is Nothing Then
objExcel.Quit
Set objExcel = Nothing
End If
ElseIf .FileExists(strSourceFileSystemObject) Then
Set objFile = .GetFile(strSourceFileSystemObject)

Select Case LCase(.GetExtensionName(objFile.Name))
Case "xls", "xlsx"
With WScript.CreateObject("Excel.Application")
WorkingWithWorkbook .Application, objFile

.Quit
End With
Case Else
WScript.Echo "Source file [" & strSourceFileSystemObject & "] probably has not an Excel Workbook."
End Select

Set objFile = Nothing
Else
WScript.Echo "Can't find source file or source folder [" & strSourceFileSystemObject & "]."
WScript.Quit 2
End If
End with
Else
WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file or source folder>"
WScript.Quit 1
End If

WScript.Quit 0

'=============================================================================

Sub WorkingWithWorkbook(objExcel, objFile)
WScript.Echo objFile.Path

With objExcel
With .Workbooks.Open(objFile.Path)
With .Worksheets(1).Range("A4:I4")
.Replace "02.07.2015", "15.07.2015"
End With

.Save
.Close
End With
End With
End Sub

и для этих файлов он работает
http://rghost.ru/private/7pFNmtcC7/95f22ecfadca076251a20229c1c14670

но для двух других файлов, где это ячейка "A3:G3" не работает (просто меняю адрес ячейки)
http://rghost.ru/private/8V2CByf99/7c4d60f61c1b3c727d0a7ebd236852ec
выдает ошибка 800A03EC, адрес строка 71 символ 4 это символ табуляции перед Save

не понимаю почему так. для одних файлов работает. для других нет

Изменено: maza11 - 21.07.2015 10:10:10

Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

20.07.2015 18:19:32

Код

Sub WorkingWithWorkbook(objExcel, objFile)
   WScript.Echo objFile.Path
   
   With objExcel
      With .Workbooks.Open(objFile.Path)
         With .Worksheets.Item(1).Range("A4:I4")
            .Replace "02.07.2015", "09.07.2015"
         End With
         
         .Save
         .Close
      End With
   End With
End Sub

ругается, требуется объект objFile

Перейти

Макросом изменить часть текста

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 20.07.2015 17:50:20 может надо где то указать тип строки, типа string или еще что то??? потому что явно для replace чего то не хватает
	Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

20.07.2015 17:46:07

Код

Sub WorkingWithWorkbook(objExcel, objFile)
   WScript.Echo objFile.Path
    
   With objExcel
   Set iWb=Workbooks.Open(objFile.Path)
         With iWb.Worksheets(1).Range("A4:I4")
            .Replace:="02.07.2015", Replacement:="09.07.2015"
         End With    
          
         .Save
         .Close
      End With
   End With
End Sub

так все равно ошибка

Перейти

Макросом изменить часть текста

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 20.07.2015 17:21:29 Code Error 800A0400 в окне ошибки что значит ??? p.s. 800A0400 - Ожидается оператор какой еще оператор, чего там не хватает ? Изменено: maza11 - 20.07.2015 17:26:35
	Перейти

Макросом изменить часть текста

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 20.07.2015 17:16:41 ругается на несуществующее место перед .Replace
	Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

20.07.2015 17:14:29

Код

Sub WorkingWithWorkbook(objExcel, objFile)
   WScript.Echo objFile.Path
   
   With objExcel
      With .Workbooks.Open(objFile.Path)
         With .Worksheets(1).Range("A4:I4")
            .Replace:="02.07.2015", Replacement:="09.07.2015"                     
         End With
         
         .Save
         .Close
      End With
   End With
End Sub

что опять не так ?

Перейти

Макросом изменить часть текста

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 20.07.2015 17:08:07 я так понимаю рабочий лист 1 тот скрипт писал не я, беру за основу его, просто модифицируя где то ошибка. потому что сейчас вообще ссылается на пустое место где стоит табуляция
	Перейти

Макросом изменить часть текста

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 20.07.2015 16:50:28 все равно ошибка строка 68 символ 16, это знак равенства "=" без знака равенства, тоже не работает ((( Изменено: maza11 - 20.07.2015 16:50:52
	Перейти

Макросом изменить часть текста

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 20.07.2015 16:44:44 скрипт http://rghost.ru/private/6z4HsLCzn/362a96e3385fbca18212dc59ea4052d5
	Перейти

Макросом изменить часть текста

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 20.07.2015 16:43:47 http://rghost.ru/private/7SftsKvvS/ec02d66eec7e3b028ff9db4fec6fab88
	Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

20.07.2015 16:39:36

это будет скрипт на VBS, чтобы перетянули папку и оно заменило все 60-70 файлов, в ручную каждый открывать и менять сами понимаете

сейчас так

Код
With .Worksheets.Item(1) .Range("A4:I4").Replace:="02.07.2015", Replacement:="99.07.2015" End With

ругается предпологается наличие интрукции, строка 68 символ 29 это адрес ячейки "I4"
чето не пойму

Изменено: maza11 - 20.07.2015 16:45:55

Перейти

Макросом изменить часть текста

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

20.07.2015 16:13:18

есть документы, в них надо поменять дату
написал так

Код
.Range("A4:I4").Value = "Повернення постачальнику №Впс/IV-0042942 вiд 11.07.2015"

но оно меняет всю ячейку, и все документы получились с одним №, можно ли поменять только дату ???

Перейти

Делимся..., разным

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 07.07.2015 11:01:46 Крутой у Вас форум, столько толковых специалистов. Изменено: maza11 - 07.07.2015 11:02:55
	Перейти

VBS разбить большой XLS на много других отдельных XLS документов

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 03.07.2015 20:14:45 открыл все файлы руками поудалял ячейку со значение %!25BA0A-edahbj! хоть так, сижу на работе еще. но надо это тоже автоматизировать Изменено: maza11 - 03.07.2015 20:16:32
	Перейти

VBS разбить большой XLS на много других отдельных XLS документов

maza11 Пользователь Сообщений: 35 Регистрация: 01.07.2015	# 03.07.2015 19:36:13 отработало, сделало 69 файлов, ячейку %!25BA0A-edahbj! не очистило
	Перейти

VBS разбить большой XLS на много других отдельных XLS документов

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

03.07.2015 19:31:52

ничего не понял, внутри картинка с вашей авкой, жму. диалог открытия файла, открываю свою меганкаладную, пару секунд думает, окно Game Over и просто открытая меганакладная в excel висит

в папке рядом с файлом ничего не появляется

Изменено: maza11 - 03.07.2015 19:58:23

Перейти

VBS разбить большой XLS на много других отдельных XLS документов

maza11

Пользователь

Сообщений: 35 Регистрация: 01.07.2015

03.07.2015 18:47:13

макросами смог убрать логотипы из документа и строку "Автор друку"
как очисстить ячейки содержащие

%!25BA0A-ecjefe!

непойму, мне строку удалять не надо. найти эти значения во всем документе и очистить ячейку.
Но это все прелюдия, я готовлю документ к разбивке, пока мыслей вообще никаких.

Перейти