Вопрос : Перезапишите Кодего для творения названия workbook.

Hi специалисты,

I хотел были бы спросить помощь специалистов для того чтобы перезаписать прикрепленный сценарий. В настоящее время я использую этот сценарий для называть workbook. Теперь я добавил бы значение клетки A3 от листов («источника»). Данные в клетке A3 находятся всегда в дата этой форме «: 22-ое августа 2010 воскресенье». Специалисты упования smogли помочь откорректировать это code.




class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class=
1:
class= " id= " codeSnippet963314
ws2.Name = «примиряет» & форма (ws. Ряд («G2»). Значение, «dd-mm-yyyy»)
class=

Ответ : Перезапишите Кодего для творения названия workbook.

Если «источник» находится в wb, то пожалуйста измените как ниже.

ws2.Name = о («примирите» & замените (wb. Рабочий лист («источник»). Ряд («A3»). Текст,»: «,» ."), 30)

В противном случае он принял «источник» находится в ActiveWorkbook
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
Sub экспорт ()

    Тусклый wb как Workbook, wb2 как Workbook
    Тусклый ws как рабочий лист, ws1 как рабочий лист, ws2 как рабочий лист
    'Тусклый dt как шнур
   
    Установите wb = ThisWorkbook
    Установите ws = wb. Рабочий лист («примирите»)
   
    Установите wb2 = Workbooks.Add
    Установите ws2 = wb2.Worksheets («Sheet1»)
    
    'ws2.Name = «примиряют» & форма (ws. Ряд («G2»). Значение, «dd-mm-yyyy»)

    ws2.Name = о («примирите» & замените (wb. Рабочий лист («источник»). Ряд («A3»). Текст,»: «,» ."), 30)
    ws. Колонки («a: F»). Назначение экземпляра: =ws2.Columns («a: F»)
    
    ActiveSheet.PageSetup.PrintArea = ""
    С ActiveSheet.PageSetup
        . Ориентация = xlLandscape
        «. Сигнал = ложное» лучшее включенное как раз в случай!
        . Сигнал = 40 'лучших включенных как раз в случай!
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    Конец с
    Колонки («a: F») .EntireColumn.AutoFit

    Application.DisplayAlerts = ложно
   
    Для каждого ws1 в wb2.Worksheets
        Если ws1.Name <> ws2.Name после этого ws1.Delete
    Следующее ws1
       
    'Сделайте уверенный скоросшиватель перечисления существует
    'dt = «TDC_» & ws. Ряд («B2»). Значение &» .xls "
    dt = «\ \ 04 \ FileServices \ документ \ DBD \ рапорты \ Reconcile_» & форма (ws. Ряд («G2»), «dd-mm») &» .xls "

    Application.DisplayAlerts = True
       
    dt wb2.SaveAs
        
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us