pasar codigo de vb a PHP o Java
Publicado por francisco (4 intervenciones) el 14/03/2018 18:26:25
Hola buen dia,
espero me puedan apollar con el siguiente problema, necesito hacer algo q aun no puedo resolver con PHP, pero si lo tengo resuelo con vb, entonces espero me puedan ayudar para pasar el codigo de vb a PHP... estaria super agradecido
------------------ codigo VB -------------------
espero me puedan apollar con el siguiente problema, necesito hacer algo q aun no puedo resolver con PHP, pero si lo tengo resuelo con vb, entonces espero me puedan ayudar para pasar el codigo de vb a PHP... estaria super agradecido
------------------ codigo VB -------------------
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public fs As New FileSystemObject
Public temporal As Folder
Public Archivo As File
Dim NArchivo As String
Dim XArchivo As String
Private Sub CommandButton1_Click()
Dim ult, c As Long'Set temporal = fs.GetFolder(Application.ActiveWorkbook.Path & "\FacturaXLS\") '("c:/cias/Rl/")
'MsgBox temporal.Files.Count
ult = Cells(Rows.Count, 1).End(xlUp).Row
For c = 1 To ult'andres
'XArchivo = Application.ActiveWorkbook.Path & "\FacturaXLS\" & "CommercialInvoice_00" & Range("A" & c).Value & "_1.xls"
'Francisco
XArchivo = "Y:\comm_invoice\" & "CommercialInvoice_00" & Range("A" & c).Value & "_1.xls"
NArchivo = "CommercialInvoice_00" & Range("A" & c).Value & "_1.xls"
'For Each Archivo In temporal.Files
If ExisteArchivo(XArchivo) = True Then
GuardarPdf (XArchivo)
Range("B" & c).Value = "Encontrado - Convertido"
Else
Range("B" & c).Value = "No Existe"
End If
Next c
'Next Archivo
End Sub
Public Function ExisteArchivo(Archivo As String) As Boolean
Dim Nombre As String ' Temporal para la búsqueda del archivo dado.
ExisteArchivo = False ' Supone que no existe.
Nombre = Dir(Archivo)
If Len(Nombre) > 0 Then
ExisteArchivo = TrueEnd If
End Function
Sub GuardarPdf(Libro As String)
'
' GuardarPdf Macro
'
' Acceso directo: Ctrl+Mayús+Q
'
Workbooks.Open Filename:=Libro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Facturas PDF\" & Mid(NArchivo, 1, Len(NArchivo) - 4) & "pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.CloseEnd Sub
Valora esta pregunta
0
