✔ Programação GLOBAL®: open

Sim, isso pode ser necessário vez ou outra. Como posso exportar uma única linha, gravando-a num arquivo texto em qualquer uma das minhas aplicações VBA?

Segue:

' Grava os arquivos de Script base para um Batch.

SUB Process

Dim Script_Fase01 As Variant

Dim nPath_01 As Variant

Dim nPath_01b As Variant

Let nPath_01 = Form_frm_Parameter_001.cxPath_001.Value

Let nFile_01 = Form_frm_Parameter_001.cxFile_001.Value

Let nFile_01b = Form_frm_Parameter_001.cxFile_001b.Value

' Arquivos que evocarão os scripts.

Let Script_Fase01 = ":r " & nPath_01 & nFile_01

Call WriteFile (nPath_01 & nFile_01b, Script_Fase01)

END SUB

Function WriteFile (nFile As Variant, nFrase As Variant)

' Author: André Luiz Bernardes - Bernardess@gmail.com.

' Date: 09/04/2013 - 10:21.

' Application:

' Functionality: Grava uma frase em um arquivo texto externo.



Dim strList As String



Open nFile For Output As #1



Print #1, nFrase



Close #1

End Function

Tags: VBA, Tips, File, export, quotes, output, Open, print, Close, text

VBA Excel Basics - Modo profissional de Abrir e Fechar o MS Excel

| Blog Office VBA | Blog Excel | Blog Access |

O objeto Application do MS Excel disponibiliza uma coleção de objetos para controle das janelas (Windows) que permitem que abramos, organizemos, redimensionemos e fechemos as janelas filhas (child) do MS Excel.

O código abaixo abrirá uma nova janela filha e colocará as janelas em cascata, abrindo as janelas para a pasta de trabalho ativa:

Sub OpenCascadeWindows()

ActiveWindow.NewWindow

Application.Windows.Arrange xlArrangeStyleCascade, True

End Sub

Feche a janela aberta no código anterior e restaure a janela original para um estado maximizado no Excel:

Sub CloseMaximize()

ActiveWindow.Close

ActiveWindow.WindowState = xlMaximized

End Sub

Controle a janela pai do MS Excel usando as propriedades WindowState e DisplayFullScreen do objeto Application

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub ChangeExcelWindowState()

   Let Application.WindowState = xlMaximized

   Sleep 1000

   Let Application.WindowState = xlMinimized

   Sleep 1000

   Let Application.WindowState = xlNormal

   Sleep 1000

   Let Application.DisplayFullScreen = True

   Sleep 1000

   Let Application.DisplayFullScreen = False

End Sub

Tags: VBA, Excel, Basics, open, close, window, DisplayFullScree, WindowState, application, Kernel32, LIB, API,

VBA Powerpoint - Abrindo uma apresentação .PPS

Termo de Responsabilidade

Sub OpenPPSForEdit()
On Error GoTo ErrHandle

Dim pShow As Presentation' Protege a janela para prevenir o "refreshing"
Let ScreenUpdating = False' Abre a apresentação, entretanto usa um flag adicional - WithWindow = FALSE
Set pShow = Presentations.Open("C:\sample.pps", WithWindow:=msoFalse)
' Abra a janela com a edição habilitada.pShow.NewWindow
' Despretege a janela para iniciar o refreshing novamente.Let ScreenUpdating = TrueExit Sub
ErrHandle:If Err.Number <> 0 ThenMsgBox Err.Number & " " & Err.Description, _vbCritical + vbOKOnly, "Erro"End If

End Sub

Tags: VBA, Powerpoint, open, PPS

✔ Programação GLOBAL®

Propósito

Meni

.: Vitrine

Views

VBA Tips - Grave arquivo texto externo - write to external text file without quotes in VBA

VBA Excel Basics - Modo profissional de Abrir e Fechar o MS Excel

VBA Powerpoint - Abrindo uma apresentação .PPS