小编BOB*_*BOB的帖子

我想写入我的.xlsb excel文件,其名称是当天的编号.
例如,昨天的文件名是23.xlsb.

初始文件的名称是"Template.xlsb",位置不同.正如您所看到的那样,它会在新位置复制并重命名.在这个文件中我有很多宏和vba代码,这就是为什么我不想创建一个新的Excel文件.

最后,此Excel文件的链接位于此变量中$renamed_link.
$renamed_link = C:\Documents and Settings\Administrator\Desktop\Rezultate DIDU\2017\Apr\23.xlsb.

我想用我的sql query($parametri)中的数据填充第一个名为"Parametri"的工作表.
工作表的范围将填充数据从A2直到T and the total number of the rows.该表有20列.

<?php
require(realpath(dirname(__FILE__)."/PHPExcel-1.8/Classes/PHPExcel.php"));
$sql_data = date('d.m.Y', strtotime('-1days'));

    $conn = oci_connect('USER', 'PASS', 'dark:1521/DAR');
    if (!$conn) {
        $e = oci_error();
        trigger_error(htmlentities($e['message'], ENT_QUOTES), E_USER_ERROR);
    }
    Else {echo 'Connection successfully !';
    }
$parametri = oci_parse($conn,"SELECT * FROM R0508UNITP WHERE TO_DATE('${sql_data}','DD.MM.YYYY') BETWEEN R0508UNITP.R0508VFROM AND R0508UNITP.R0508VTILL");

oci_execute($parametri);

echo "<table border='1'>\n";
while ($row = oci_fetch_array($parametri, OCI_ASSOC+OCI_RETURN_NULLS)) …

我想从MsgBox更改字体颜色

为了理解我想要的东西,我选择了这个例子:

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim results As String


a = InputBox("Enter your first value:")
b = InputBox("Enter your second value:")
c = InputBox("Enter your third value:")

d = a - b + c

If d = 0 Then
    results = "Correct"
    MsgBox "Your results is: " & results 
Else
    results = "Incorrect"
    MsgBox " Your Results is: " & results 
End If

'当"Correct"我出现时,我希望用绿色的文字MsgBox

'当"Incorrect"我出现时,我希望用红色的文字MsgBox …

我在声明中有一列包含日期的列Select，我想在此 中的每一行添加 2 h Select。

有什么建议吗？