Вопросы Теги

Копирование и вставка из Excel в PowerPoint с использованием VBA

Вы не можете, он жестко подключен к 5 МБ. Это дизайнерское решение разработчиками Chrome .

В Chrome, как и в случае с Java, девайс SQL и кэша также имеют низкие ограничения по умолчанию, но если вы упакуете приложение для Chrome App Store вы можете увеличить их .

См. Также Управление автономным хранилищем HTML5 - Google Chrome .

1
задан Pᴇʜ 18 March 2019 в 16:12
поделиться

1 ответ

Снимите .Select.

1) Вы не можете Set Rng = [whatever].Select. Вы хотите сделать Set Rng = [whatever] затем Rng.Select на новой строке, но, что более важно,

2) Лучше всего Избегать использования .Select / .Activate [ 118]. Хотя вы, кажется, не используете его в другом месте (хорошо!), Поэтому я уверен, что это просто «опечатка».

Кроме того, если вы хотите столбцы , вы должны сделать: 

Set rng = ThisWorkbook.ActiveSheet.Range("b3,f3,l3,n3,p3,q3").EntireColumn

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

 'Copy Range from Excel
  Dim lastRow As Long
  With ThisWorkbook.ActiveSheet

    lastRow = .Cells(Rows.Count, 2).End(xlUp).Row
    ' I assume your headers actually are in row 3, and the data is in row 4 on ward:
    Set rng = ThisWorkbook.ActiveSheet.Range("b3:B" & lastRow & ",f3:F" & lastRow & ",l3:l" & lastRow & ",n3:N" & lastRow & ",p3:P" & lastRow & ",q3:Q" & lastRow)
    Set rng1 = ThisWorkbook.ActiveSheet.Range("G4:I4")
  End With
 'Create an Instance of PowerPoint
  On Error Resume Next
 ' Etc. etc.
0
ответ дан BruceWayne 18 March 2019 в 16:12
поделиться
Другие вопросы по тегам:

Похожие вопросы: