盒子论坛 v2.1

unit excelExport;

interface

uses
  Classes, SysUtils;

const
  DllName='DataToExcel.dll';

type
  TProcedure=Procedure(xProgress,xmin,xmax:integer;AEnd:boolean); stdcall;
  TColItem=packed Record
     ColWidth:integer;
     ColColor:Cardinal;
     DataType:integer;
     Data : Array of byte; //Array[0..128] of Ansichar;//
  end;
  TColCells = array of TColItem;
  TRowCells = array of TColCells;
  PRowCells=^TRowCells;

  procedure ExportToExcelA(const RowDatas: PRowCells; const AFileName: PAnsiChar; const AFormat:integer;AProgress:pointer=nil);stdcall; external DllName Name 'ExportToExcelA';

implementation

end.
----------------------------------------------
泱泱华夏十亿兵,国耻期待儿孙平,愿提十万虎狼旅,跃马扬刀灭东京!

作者：

wac1104 (火鸟)	★☆☆☆☆	-
	普通会员

2023/3/30 12:48:42

1楼：

以下是将给定的代码转换为 VB6 代码的尝试。请注意，由于 Delphi 和 VB6 之间的差异，您可能需要根据您的具体需求进行一些调整。

在 VB6 中，我们将创建一个名为 "ExcelExport" 的类模块。请将以下代码复制并粘贴到 VB6 类模块中，并将该类模块命名为 "ExcelExport"。

==========
Option Explicit

Public Const DllName As String = "DataToExcel.dll"

Public Type TColItem
    ColWidth As Long
    ColColor As Long
    DataType As Long
    Data(0 To 128) As Byte
End Type

Public Type TColCells
    Items() As TColItem
End Type

Public Type TRowCells
    Rows() As TColCells
End Type

Public Declare Sub ExportToExcelA Lib DllName Alias "ExportToExcelA" ( _
    ByVal RowDatas As TRowCells, _
    ByVal AFileName As String, _
    ByVal AFormat As Long, _
    Optional ByVal AProgress As Long _
)
==========
请注意，此代码可能需要根据您的项目需求进行调整。此外，由于 Delphi 代码中的 "Array of" 动态数组在 VB6 中无直接对应物，因此在此示例中使用了固定大小的数组。如果您需要动态数组，请根据需要调整代码。
----------------------------------------------
火鸟

作者：

qq81709989 (战石电子)	▲▲△△△	-
	普通会员

2023/3/30 20:19:27

2楼：

Here is the Visual Basic 6.0 code for the Delphi code you provided:
```vb
Option Explicit

Public Declare Sub ExportToExcelA Lib "DataToExcel.dll" (ByRef RowDatas As Any, ByVal AFileName As String, ByVal AFormat As Long, ByVal AProgress As Long)

Type TColItem
    ColWidth As Long
    ColColor As Long
    DataType As Long
    Data() As Byte
End Type

Type TColCells
    Col() As TColItem
End Type

Type TRowCells
    Row() As TColCells
End Type

Public Sub ExportToExcel(RowDatas As TRowCells, ByVal AFileName As String, ByVal AFormat As Long, Optional AProgress As Long = 0)
    Dim RowIndex As Long, ColIndex As Long, CellIndex As Long
    Dim RowData() As TColCells, ColData() As TColItem

    ReDim RowData(UBound(RowDatas.Row))

    For RowIndex = 0 To UBound(RowDatas.Row)
        ReDim ColData(UBound(RowDatas.Row(RowIndex).Col))

        For ColIndex = 0 To UBound(RowDatas.Row(RowIndex).Col)
          With RowDatas.Row(RowIndex).Col(ColIndex)
          ReDim .Data(UBound(.Data))
          ColData(ColIndex) = . ' Copy the data to the new array.
          End With
        Next

        ReDim RowData(RowIndex).Row(UBound(ColData))
        For CellIndex = 0 To UBound(ColData)
          RowData(RowIndex).Row(CellIndex) = ColData(CellIndex) ' Copy the data to the new array.
        Next
    Next

    ExportToExcelA VarPtr(RowData(0)), AFileName, AFormat, AProgress ' Call the DLL function.
End Sub
```
Please note that I have not tested this code and it may require some modifications to work properly. Let me know if you need any further assistance.

Source: Conversation with Bing, 2023/3/30
----------------------------------------------
《Z-Gantt战石智慧时间管理进度计划甘特图软件》：WWW.Z-SHi.NET

作者：

dorry (littlecat)	★☆☆☆☆	-
	盒子活跃会员

2023/3/31 10:45:09

3楼：

@ wac1104 (火鸟)、qq81709989 (Z-SHi战石) 谢谢两位朋友
代码我测试了，但是一直出错。
ChatGpt的转换有一些错误，改正后传入的数据也不正确。

我临时写了一个delphi 的函数测试，导入的数据跟踪错误，但是没有数据导入。附件为我的测试的 VB和 delphi2007的模拟代码。请各位朋友帮忙测试

此帖子包含附件:dorry_202333110459.zip 大小:100.4K

----------------------------------------------
泱泱华夏十亿兵,国耻期待儿孙平,愿提十万虎狼旅,跃马扬刀灭东京!

作者：

dorry (littlecat)	★☆☆☆☆	-
	盒子活跃会员

2023/3/31 10:51:13

4楼：

ChatGpt 的代码改正后未作测试，只是把它的VarPtr用上面的例子进行了测试，确实能传入数据，但是完全不对。
----------------------------------------------
泱泱华夏十亿兵,国耻期待儿孙平,愿提十万虎狼旅,跃马扬刀灭东京!

作者：

hawke2e (hawke2e)	★☆☆☆☆	-
	普通会员

2023/4/1 22:51:31

5楼：

chatGPT可以对也可以不对，看你输入什么。
现在是念咒语的时代，没想到真的有咒语
看啥时候有剧本（咒语）网站
----------------------------------------------
软件是什么，相信很多人都说不清。

信息

登陆以后才能回复