✔ Programação GLOBAL®: texto

Mostrando postagens com marcador texto. Mostrar todas as postagens

PIECE OF CAKE - Criando Arquivo Texto Externo

#A&A #PIECEOFCAKE #POC #VBA

Criar arquivos texto externos a aplicação que trabalhamos é um recurso muito usado, especialmente quando queremos registrar algum log de acesso.

O código abaixo é muito funcional, quando passamos os dados que serão o conteúdo do arquivo.

Function CreateAfile(PathFileNameExt As String, nFrase As String)
' © 2007-20 Alefe & Bete Processamento de Dados LTDA - ME, except where noted, all rights reserved.
' Author: André Bernardes
' Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
' Description: Cria uma nova aba

Dim fs, a

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(PathFileNameExt, True)

a.WriteLine (nFrase)

a.Close

End Function

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛

• VBA Specialist ® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist®

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com

PIECE OF CAKE - Convertendo Texto em Imagem - Convert Text to an Image using the VBA Windows API

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Nesta época de Mídias Sociais e grande necessidade de publicarmos KPIs e Dashboards com insights baseados em informações atualizadas, termos uma solução como a demonstrada abaixo será muito útil no dia a dia.

Sub PublishExcelRangeAsImage (r As Excel.Range, stFileNamePathForImage As String, Optional stImageType = "BMP")
'
' Copies a range in Excel, converts it to a picture, and saves it as an image file.
' r = The range you want to copy and convert to an image.
' stFileNamePathForImage = Full path, without the period (.) and extension of the destination file.
' stImageType = The extension for the filename; also determines the type of image saved to disk.
' stImageType can be "bmp", "gif", or "jpg". "bmp" is default.
'
Dim c As Excel.Chart
Dim wsSave
Dim wbSave As Excel.Workbook
Dim fDisplayAlerts As Boolean

stImageType = UCase(stImageType)
'
' In case another Workbook is active, save it so we can restore it when we are done.
' We need to do this because, later, we will change the active sheet to a chart.
'
Set wbSave = Excel.ActiveWorkbook
Set wsSave = wbSave.ActiveSheet
'
' Create a temporary chart object. This is where the image will be created.
'
Set c = r.Worksheet.Parent.Charts.Add
'
' In Excel 2007, a new chart is no lonter empty; therefore, clear it.
'
c.ChartArea.Clear

c.ChartArea.Height = r.Height * 2 ' Make sure the ChartArea is bigger than
c.ChartArea.Width = r.Width * 2 ' the image, or image will be made smaller
'
' Copy the image from the range object to the chart.
'
r.CopyPicture xlScreen, xlBitmap
c.Paste
'
' Position the image, as Excel doesn't do this well on it's own.
' Note, since we cleared the chart before pasting the image,
' we can be sure that the image is the only shape on the chart.
' Thus, we are safe to directly address shape 1, from the shape
' collection and know it's the image.
'
Let c.Shapes(1).Left = 0
Let c.Shapes(1).Top = 0
Let c.Shapes(1).Height = r.Height
Let c.Shapes(1).Width = r.Width
'
' Prevent the image from resizing when we resize the chart.
'
Let c.Shapes(1).Placement = xlFreeFloating
'
' Now make the chart the same size as the image.
'
' We need to activate the chart first because of a timing issue. If we don't
' activate it, the code fails when we set the height, unless we put a delay into the code.
' Better to activate it than put in a delay.
'
c.Activate
Let c.ChartArea.Height = r.Height
Let c.ChartArea.Width = r.Width
'
' Save the image as a file.
'
c.Export stFileNamePathForImage & "." & stImageType, stImageType
'
' We are done. Delete the chart. Note, we first need to turn off alerts, or else,
' Excel prompts us to make sure we really want to delete it.
'
Let fDisplayAlerts = Application.DisplayAlerts
Let Application.DisplayAlerts = False
c.Delete
Let Application.DisplayAlerts = fDisplayAlerts

Set c = Nothing
'
' Return focus back to the original workbook/worksheet that was active
' when this code began.
'
wsSave.Activate

Set wbSave = Nothing
Set wsSave = Nothing

End Sub

#A&A #API #Converter #Dashboard #Imagem #KPI #PIECEOFCAKE #Text #Texto #WindowsAPI #POC #VBA

Defina a Latitude e a Longitude - Find Latitude and Longitude of any address using Google Map API and VBA

VBA Excel - Traduzindo Planilhas - MS Excel VBA Script to Translate worksheets using the Google Translate API

Excel - Manipule o Google Maps em sua Planilha - Put a Google Map in your Spreadsheet

Convertendo Texto em Imagem - Convert Text to an Image using the VBA Windows API

Correção de Métricas - For Subscripts, Superscripts and Common Typos

MS Access - Cinco Formas Manuais de Reparo

MS Access e MS Word - Técnica de Automação

Microsoft Access - Removendo Prefixo das Tabelas

Sempre Use Stored Procedures - Always Use Stored Procedures

A&A - Dados ou Informações?

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛

• VBA Specialist ® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist®

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com

VBA Word - Formatando o Texto

With Selection.Font
' the Latin text font name and size...
        .Name = "Verdana"
        .Size = 12
' Bold and Italic are the Font Style...
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
' The following are the font effects...
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = True
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
' Character spacing...
        .Spacing = -1
        .Scaling = 100
        .Position = -2
        .Kerning = 12
' One of the available Annimation effects.
' Can be one of the following...
' wdAnimationBlinkingBackground
' wdAnimationLasVegasLights
' wdAnimationMarchingBlackAnts
' wdAnimationMarchingRedAnts
' wdAnimationShimmer
' wdAnimationSparkleText
' wdAnimationSparkleText
        .Animation = wdAnimationNone
The font, size, and style of Bidirectional fonts.
        .SizeBi = 12
        .NameBi = "Tahoma"
        .BoldBi = False
        .ItalicBi = False
    End With

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

DONUT PROJECT 2014 - VBA - Excel - Importando arquivos CSV

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Importar dados de arquivos CSVs é algo tão comum, que o MS Excel já tem um mecanismo próprio para fazer isso. Mas esta continua sendo uma das dúvidas mais comuns. Como fazer essa importação, através do VBA?

Uma alternativa é a de ler o arquivo CSV como se fosse um arquivo texto, e em seguida carregar cada linha em uma matriz, e através de loops inserí-los no MS Excel.

'This sub only provides the sub ImportCSVfile with parameters

Sub InitiateImportCSVFile()

Dim filePath As String

  Dim ImportToRow As Integer

  Dim StartColumn As Integer

Let filePath = "E:\Bernardes\Arquivo.csv"

Let ImportToRow = 1 'the row where it will start printing

      Let StartColumn = 1 'the start column

      ImportCSVFile filePath, ImportToRow, StartColumn

End Sub

' Este é o código que faz todo o trabalho:

Sub ImportCSVFile

(ByVal filePath As String, ByVal ImportToRow As Integer, ByVal StartColumn As Integer)

Dim line As String

Dim arrayOfElements

Dim element As Variant

Open filePath For Input As #1 ' Open file for input

Do While Not EOF(1) ' Loop until end of file

ImportToRow = ImportToRow + 1

Line Input #1, line

Let arrayOfElements = Split(line, ";") 'Split the line into the array.

' Loop thorugh every element in the array and print to Excelfile

For Each element In arrayOfElements

Let Cells(ImportToRow, StartColumn).Value = element

Let StartColumn = StartColumn + 1

Next

Loop

Close #1 ' Close file.

End Sub