转换vb6中的Excel自定义日期列
在VB6中转换Excel自定义日期列，可以通过以下步骤实现：
- 首先，需要使用VB6中的Excel对象模型来打开Excel文件并访问工作表。可以使用
CreateObject函数创建Excel应用程序对象，然后打开指定的Excel文件。
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\excel_file.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")- 接下来，需要找到自定义日期列所在的列号。可以使用Excel对象模型中的
Range对象来查找包含特定值的单元格。
Dim dateColumn As Range
Set dateColumn = xlWorksheet.Rows(1).Find("自定义日期列", LookIn:=xlValues)- 一旦找到自定义日期列所在的列号，可以使用Excel对象模型中的
Range对象来访问该列的所有单元格，并进行日期转换操作。
Dim cell As Range
For Each cell In xlWorksheet.Columns(dateColumn.Column).Cells
' 进行日期转换操作
Next cell- 在日期转换操作中，可以使用VB6中的日期函数和字符串函数来解析和格式化日期。根据自定义日期列的格式，使用适当的函数进行转换。
Dim customDate As String
customDate = cell.Value
' 根据自定义日期格式进行转换
Dim convertedDate As Date
convertedDate = CDate(Mid(customDate, 5, 2) & "/" & Mid(customDate, 7, 2) & "/" & Mid(customDate, 1, 4))
' 将转换后的日期格式化为所需的格式
Dim formattedDate As String
formattedDate = Format(convertedDate, "yyyy-mm-dd")- 最后，可以将转换后的日期值写回Excel文件中的相应单元格。
cell.Value = formattedDate完整的代码示例：
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\excel_file.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
Dim dateColumn As Range
Set dateColumn = xlWorksheet.Rows(1).Find("自定义日期列", LookIn:=xlValues)
Dim cell As Range
For Each cell In xlWorksheet.Columns(dateColumn.Column).Cells
Dim customDate As String
customDate = cell.Value
' 根据自定义日期格式进行转换
Dim convertedDate As Date
convertedDate = CDate(Mid(customDate, 5, 2) & "/" & Mid(customDate, 7, 2) & "/" & Mid(customDate, 1, 4))
' 将转换后的日期格式化为所需的格式
Dim formattedDate As String
formattedDate = Format(convertedDate, "yyyy-mm-dd")
cell.Value = formattedDate
Next cell
xlWorkbook.Save
xlWorkbook.Close
xlApp.Quit这样，就可以在VB6中转换Excel自定义日期列了。
请注意，以上代码示例中没有提及具体的腾讯云产品和链接地址，因为腾讯云并不直接提供与Excel转换相关的云计算服务。但是，腾讯云提供了丰富的云计算产品和服务，可以在其他方面满足您的需求。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多信息。
相关·内容
我是一个使用HL7格式数据的医疗保健接口开发人员。我多次导出数据，其中包含日期或日期时间的文本格式.这有三个品种：
12:00:0014-character 16-字符D/T:比如2012年12月25日在上的D/T为20201225120000 :2020我已经多次进行互联网搜索，以找到如何在Excel中转换这些值。这很痛苦，因为16位数字的时间戳通常是Unix格式的。所以，我找到了很多关于转换这
浏览 4提问于2020-12-18得票数 0
(1960年，1961年，...2010) 我正在对Power Query中的数据集进行实验，我注意到Power Query不能将列识别为年份。每当我单击列标题并将格式更改为date时，数字都会更改为1905。 因此，我尝试在Excel中打开它，并更改其中的格式。a screenshot from Excel 首先，我尝试将格式更改为yyyy日期，但数字变为1905。我想也许excel可以将列<em
浏览 224提问于2021-11-08得票数 0
2回答
我需要将C# datetime对象转换为可怕的Excel日期格式：有没有办法做到这一点，而不诉诸DIY代码？我需要它来创建Excel友好的CSV导出。
在谷歌上搜索，除了那篇好的博客文章之外，我没有发现任何有用的东西
浏览 8提问于2016-10-26得票数 3
回答已采纳
我无法转换column2和column3中的日期格式，如下所示。我有一个专栏01.01.2018。此列需要更改为2018年1月1日和其他列2018年1月1日01.01.2018 1/1/2018 01/Jan/2018
浏览 16提问于2017-08-28得票数 1
回答已采纳
1回答
我有一个vb6代码，从excel中读取的值是mm-yy格式。我想在我的应用程序中将其转换为dd-mm-yyyy格式 我用于读取列的vb6代码是 .Range(Purchase_Excel!
浏览 19提问于2019-03-06得票数 0
1回答
我想将函数Convertir(MskDateDu,"E") of VB6迁移到VB.NET，请有人向我解释一下这条指令的含义:转换( MskDate，"E")，以及如何在VB.NET MskDate中用这种格式编写掩码日期
浏览 4提问于2015-09-16得票数 0
回答已采纳
6回答
将序列号转换为日期
、、、
在Excel工作表中，我将接收数据，然后需要将其上传到SQL服务器，然后实现逻辑。所以在上传文件之后。假设Excel计算01-01-1900中的天数。因此，我添加了数字--[Due Date]，它应该给我提供正
浏览 9提问于2010-09-09得票数 2
回答已采纳
我创建了一个使用Pandas将Excel文件转换为CSV的简单脚本。float_format='%.0f')
但是，我的问题是，Excel文件有几个日期列，CSV文件中的输出带有单元格的文字值，格式为mm/dd/yyyy。在Excel文件中，已应用自定义编号格式将日期转换为mmm yyyy
浏览 3提问于2022-06-09得票数 0
1回答
他的电脑是美国的日期格式(M/d/yyyy)。
我的计算机是英国的日期格式(dd/MM/yyyy)。当我的excel打开文件时，它将前两位数字(dd)解释为月份。文件中日期是什么样子的两个示例:这是7月: 31/07/2021 ->，我的excel将单元格格式化为通用格式，这是8月: 12/08/
浏览 6提问于2021-09-01得票数 1
我将SQL查询的输出导出到Excel 365，其中一个列包含date值。我如何在Excel中做到这一点？
浏览 0提问于2019-04-21得票数 0
回答已采纳
1回答
是否有方法设置导出到Excel的列格式？似乎它只适用于原始数据集。顺便说一句，Date对象是作为日期导出的(而且它几乎没有问题)，但是我想用指定的format导出数据。有可能吗？提亚 { id:"data",
...
浏览 12提问于2016-11-30得票数 0
回答已采纳
我应该将用VBA编写的大量代码转换成VB6。但我真的不知道我要照顾什么，也不知道从哪里开始。因此，如果能从VB6专家那里得到一些提示，那就太好了。但我不是VB6专家，也不知道我必须做什么。例如，我必须做什么才能将此vba代码<
浏览 6提问于2010-01-11得票数 4
回答已采纳
我有一个excel表格列的日期，时间和时区。(31-2017年1月-2017年23:45东部时间)。
我试着将其转换为日期，并在excel中对其进行排序，但没有工作。我已经尝试将它转换成带有日期和时间的自定义格式，但仍然无法工作。
浏览 0提问于2017-02-16得票数 1
回答已采纳
我正在将一个数据帧写入到excel中，并使用xlsx编写器将我的日期列格式化为自定义格式，但excel始终包含日期时间值并忽略代码中指定的自定义格式。代码如下： writer = ExcelWriter(path+'test.xlsx', engine='xlsxwriter')df.to_excel(df.co
浏览 44提问于2020-10-30得票数 1
回答已采纳
1回答
背景：
非常简单的SSIS包可以将Excel工作表导入Server中的暂存表中。由于我不想通过使用错误的命名来误导任何人，所以我将将Excel源代码称为Excel，而将Server表称为目标表。但是，由于日期列的数据截断，它现在失败了。Excel列已格式化为日期(我在日期内尝试了几个不同的格式选项)。目标<em
浏览 5提问于2017-03-07得票数 3
1回答
我试图使用将带有日期列的表从excel导入到MS数据库。
数据库中列的数据类型是“datetime”。我尝试将相应的excel列格式化为‘短日期’，然后将其格式化为'text'："19-02-2015“，然后格式化为”自定义日期“："19/02/2015 00:00"，但我始终收到以下错误消息：
浏览 0提问于2016-11-22得票数 0
我通过内置的Excel连接工具将德国SQL Server表中的日期导入到德国Excel文件中。我还需要能够使用这些日期进行计算。我是否需要更改SQL Serve
浏览 8提问于2012-08-08得票数 1
我正在使用excel powerquery从一个站点中提取数据，这个站点是
= letlet
Source = Web.Page，当导入excel时，它可以理解地在Excel</em
浏览 6提问于2015-09-01得票数 2
回答已采纳
我有一个很大的原始数据转储，我正在尝试将日期格式化为一致的格式。从截图中可以看到，有两种主要格式，一种是自定义mm-dd-yyyy hh:mm AM/PM和mm/dd/yyyy hh:mm:ss。一个存储为常规，另一个存储为自定义值。我尝试过=left(A2,8)，通过text()转换并使用文本到列，但无法将值转换为一致的值。
浏览 0提问于2016-07-28得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
