Remove a aspa dupla ao copiar da célula

Question

Problema :
Ao copiar uma célula que contém 'script' do Excel em outro programa, as aspas duplas ( "" ) são adicionadas automaticamente em vez de aspas simples ( " ).

Além disso, no início e no final dos scripts, um " é adicionado automaticamente.

Aqui está o meu script, e as citações enfatizadas são as extrínsecas:

"// script to change budget by day of week // Jon Gritton 2016

// user vars var BUDG_NAME = " "Shared budget S104 (CX - High)" "; var B_MON = 500000 ; var B_TUE = 500000 ; var B_WED = 500000 ; var B_THU = 500000 ; var B_FRI = 500000 ; var B_SAT = 500000 ; var B_SUN = 500000 ;

function main() { setBudget(getBudgetToday()); }

function getBudgetToday() { var budgArray = [B_SUN,B_MON,B_TUE,B_WED,B_THU,B_FRI,B_SAT]; var d = new Date(Utilities.formatDate(new Date(), >AdWordsApp.currentAccount().getTimeZone(), " "MMM dd,yyyy HH:mm:ss" ")); var today = d.getDay(); return budgArray[today]; }

function setBudget(budgetToday) { Logger.log(" "Budget for today is: " " + budgetToday); var budgetIter = AdWordsApp.budgets() .withCondition(" "BudgetName = '" " + BUDG_NAME + " " ' " ") .get() while (budgetIter.hasNext()) { var thisBudget = budgetIter.next(); thisBudget.setAmount(budgetToday); } }"

Detalhes :
Estou usando o Excel 2013 no Windows 10.

Eu li em outro tópico que podemos resolver isso usando essa macro

Sub CopyCellContents()
  'create a reference in the VBE to Microsft Forms 2.0 Lib
  Dim objData As New DataObject
  Dim strTemp As String
  strTemp = ActiveCell.Value
  objData.SetText (strTemp)
  objData.PutInClipboard
End Sub

mas aparentemente essa macro é compatível apenas com o Excel 2007 e não com o Excel 2013:

"Erro de compilação: tipo definido pelo usuário não definido"

A única alternativa é copiar a célula (que contém o script) para o Word 2013 e copiar o texto bloqueando a barra de fórmulas. Mas eu preciso apenas copiar a célula para o novo programa.

Como posso evitar que essas aspas duplas sejam exibidas ao copiar para outro programa? Em outras palavras, posso me livrar dessas aspas duplas de serem adicionadas automaticamente quando a célula é copiada para a área de transferência?

    

Answer 1

Na verdade, essa macro é compatível com o Excel 2013. O que você precisa fazer é adicionar uma referência ao Microsoft Forms 2.0 Object Library , conforme explicado no comentário na segunda linha do código.

No VBE, vá para Tools → References… , role para baixo até encontrar a referência para Formulários (ela estará em "M") e marque a caixa de seleção:

A macro deve funcionar agora.